17410 lines
708 KiB
VB.net
17410 lines
708 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code++. Version 4.4.0.7
|
|
'' <NameSpace>DEXPDD</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
|
|
'' </auto-generated>
|
|
'' ------------------------------------------------------------------------------
|
|
Imports System
|
|
Imports System.Diagnostics
|
|
Imports System.Xml.Serialization
|
|
Imports System.Collections
|
|
Imports System.Xml.Schema
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Xml
|
|
Imports System.Collections.Generic
|
|
|
|
Namespace DEXPDD
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True), _
|
|
System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)> _
|
|
Partial Public Class DEXPDD
|
|
|
|
#Region "Private fields"
|
|
Private _interchangeSender As DEXPDDInterchangeSender
|
|
|
|
Private _interchangeRecipient As DEXPDDInterchangeRecipient
|
|
|
|
Private _preparation As DEXPDDPreparation
|
|
|
|
Private _interchangeControlReference As String
|
|
|
|
Private _messageGroup As DEXPDDMessageGroup
|
|
|
|
Private _messageReferenceNumber As String
|
|
|
|
Private _messageType As DEXPDDMessageType
|
|
|
|
Private _messageIdentifier As String
|
|
|
|
Private _header As DEXPDDHeader
|
|
|
|
Private _goodsLoadingPlace As DEXPDDGoodsLoadingPlace
|
|
|
|
Private _exportCustomsOffice As DEXPDDExportCustomsOffice
|
|
|
|
Private _supplementaryDeclarationCustomsOffice As DEXPDDSupplementaryDeclarationCustomsOffice
|
|
|
|
Private _intendedExitCustomsOffice As DEXPDDIntendedExitCustomsOffice
|
|
|
|
Private _actualExitCustomsOffice As DEXPDDActualExitCustomsOffice
|
|
|
|
Private _transaction As DEXPDDTransaction
|
|
|
|
Private _specialFact As List(Of DEXPDDSpecialFact)
|
|
|
|
Private _itinerary As List(Of DEXPDDItinerary)
|
|
|
|
Private _seals As DEXPDDSeals
|
|
|
|
Private _presentationPackingLoading As DEXPDDPresentationPackingLoading
|
|
|
|
Private _exporter As DEXPDDExporter
|
|
|
|
Private _declarant As DEXPDDDeclarant
|
|
|
|
Private _representative As DEXPDDRepresentative
|
|
|
|
Private _contractor As DEXPDDContractor
|
|
|
|
Private _outwardProcessingOwner As DEXPDDOutwardProcessingOwner
|
|
|
|
Private _consignee As DEXPDDConsignee
|
|
|
|
Private _deliveryTerms As DEXPDDDeliveryTerms
|
|
|
|
Private _outwardProcessing As DEXPDDOutwardProcessing
|
|
|
|
Private _goodsItem As List(Of DEXPDDGoodsItem)
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._goodsItem = New List(Of DEXPDDGoodsItem)()
|
|
Me._outwardProcessing = New DEXPDDOutwardProcessing()
|
|
Me._deliveryTerms = New DEXPDDDeliveryTerms()
|
|
Me._consignee = New DEXPDDConsignee()
|
|
Me._outwardProcessingOwner = New DEXPDDOutwardProcessingOwner()
|
|
Me._contractor = New DEXPDDContractor()
|
|
Me._representative = New DEXPDDRepresentative()
|
|
Me._declarant = New DEXPDDDeclarant()
|
|
Me._exporter = New DEXPDDExporter()
|
|
Me._presentationPackingLoading = New DEXPDDPresentationPackingLoading()
|
|
Me._seals = New DEXPDDSeals()
|
|
Me._itinerary = New List(Of DEXPDDItinerary)()
|
|
Me._specialFact = New List(Of DEXPDDSpecialFact)()
|
|
Me._transaction = New DEXPDDTransaction()
|
|
Me._actualExitCustomsOffice = New DEXPDDActualExitCustomsOffice()
|
|
Me._intendedExitCustomsOffice = New DEXPDDIntendedExitCustomsOffice()
|
|
Me._supplementaryDeclarationCustomsOffice = New DEXPDDSupplementaryDeclarationCustomsOffice()
|
|
Me._exportCustomsOffice = New DEXPDDExportCustomsOffice()
|
|
Me._goodsLoadingPlace = New DEXPDDGoodsLoadingPlace()
|
|
Me._header = New DEXPDDHeader()
|
|
Me._preparation = New DEXPDDPreparation()
|
|
Me._interchangeRecipient = New DEXPDDInterchangeRecipient()
|
|
Me._interchangeSender = New DEXPDDInterchangeSender()
|
|
End Sub
|
|
|
|
Public Property InterchangeSender() As DEXPDDInterchangeSender
|
|
Get
|
|
Return Me._interchangeSender
|
|
End Get
|
|
Set(value As DEXPDDInterchangeSender)
|
|
Me._interchangeSender = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property InterchangeRecipient() As DEXPDDInterchangeRecipient
|
|
Get
|
|
Return Me._interchangeRecipient
|
|
End Get
|
|
Set(value As DEXPDDInterchangeRecipient)
|
|
Me._interchangeRecipient = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Preparation() As DEXPDDPreparation
|
|
Get
|
|
Return Me._preparation
|
|
End Get
|
|
Set(value As DEXPDDPreparation)
|
|
Me._preparation = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property InterchangeControlReference() As String
|
|
Get
|
|
Return Me._interchangeControlReference
|
|
End Get
|
|
Set(value As String)
|
|
Me._interchangeControlReference = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MessageGroup() As DEXPDDMessageGroup
|
|
Get
|
|
Return Me._messageGroup
|
|
End Get
|
|
Set(value As DEXPDDMessageGroup)
|
|
Me._messageGroup = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property MessageReferenceNumber() As String
|
|
Get
|
|
Return Me._messageReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._messageReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MessageType() As DEXPDDMessageType
|
|
Get
|
|
Return Me._messageType
|
|
End Get
|
|
Set(value As DEXPDDMessageType)
|
|
Me._messageType = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MessageIdentifier() As String
|
|
Get
|
|
Return Me._messageIdentifier
|
|
End Get
|
|
Set(value As String)
|
|
Me._messageIdentifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Header() As DEXPDDHeader
|
|
Get
|
|
Return Me._header
|
|
End Get
|
|
Set(value As DEXPDDHeader)
|
|
Me._header = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Goods-LoadingPlace")> _
|
|
Public Property GoodsLoadingPlace() As DEXPDDGoodsLoadingPlace
|
|
Get
|
|
Return Me._goodsLoadingPlace
|
|
End Get
|
|
Set(value As DEXPDDGoodsLoadingPlace)
|
|
Me._goodsLoadingPlace = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ExportCustomsOffice() As DEXPDDExportCustomsOffice
|
|
Get
|
|
Return Me._exportCustomsOffice
|
|
End Get
|
|
Set(value As DEXPDDExportCustomsOffice)
|
|
Me._exportCustomsOffice = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SupplementaryDeclarationCustomsOffice() As DEXPDDSupplementaryDeclarationCustomsOffice
|
|
Get
|
|
Return Me._supplementaryDeclarationCustomsOffice
|
|
End Get
|
|
Set(value As DEXPDDSupplementaryDeclarationCustomsOffice)
|
|
Me._supplementaryDeclarationCustomsOffice = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IntendedExitCustomsOffice() As DEXPDDIntendedExitCustomsOffice
|
|
Get
|
|
Return Me._intendedExitCustomsOffice
|
|
End Get
|
|
Set(value As DEXPDDIntendedExitCustomsOffice)
|
|
Me._intendedExitCustomsOffice = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ActualExitCustomsOffice() As DEXPDDActualExitCustomsOffice
|
|
Get
|
|
Return Me._actualExitCustomsOffice
|
|
End Get
|
|
Set(value As DEXPDDActualExitCustomsOffice)
|
|
Me._actualExitCustomsOffice = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Transaction() As DEXPDDTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set(value As DEXPDDTransaction)
|
|
Me._transaction = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("SpecialFact")> _
|
|
Public Property SpecialFact() As List(Of DEXPDDSpecialFact)
|
|
Get
|
|
Return Me._specialFact
|
|
End Get
|
|
Set(value As List(Of DEXPDDSpecialFact))
|
|
Me._specialFact = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Itinerary")> _
|
|
Public Property Itinerary() As List(Of DEXPDDItinerary)
|
|
Get
|
|
Return Me._itinerary
|
|
End Get
|
|
Set(value As List(Of DEXPDDItinerary))
|
|
Me._itinerary = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Seals() As DEXPDDSeals
|
|
Get
|
|
Return Me._seals
|
|
End Get
|
|
Set(value As DEXPDDSeals)
|
|
Me._seals = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PresentationPackingLoading() As DEXPDDPresentationPackingLoading
|
|
Get
|
|
Return Me._presentationPackingLoading
|
|
End Get
|
|
Set(value As DEXPDDPresentationPackingLoading)
|
|
Me._presentationPackingLoading = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Exporter() As DEXPDDExporter
|
|
Get
|
|
Return Me._exporter
|
|
End Get
|
|
Set(value As DEXPDDExporter)
|
|
Me._exporter = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Declarant() As DEXPDDDeclarant
|
|
Get
|
|
Return Me._declarant
|
|
End Get
|
|
Set(value As DEXPDDDeclarant)
|
|
Me._declarant = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Representative() As DEXPDDRepresentative
|
|
Get
|
|
Return Me._representative
|
|
End Get
|
|
Set(value As DEXPDDRepresentative)
|
|
Me._representative = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Contractor() As DEXPDDContractor
|
|
Get
|
|
Return Me._contractor
|
|
End Get
|
|
Set(value As DEXPDDContractor)
|
|
Me._contractor = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property OutwardProcessingOwner() As DEXPDDOutwardProcessingOwner
|
|
Get
|
|
Return Me._outwardProcessingOwner
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingOwner)
|
|
Me._outwardProcessingOwner = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Consignee() As DEXPDDConsignee
|
|
Get
|
|
Return Me._consignee
|
|
End Get
|
|
Set(value As DEXPDDConsignee)
|
|
Me._consignee = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DeliveryTerms() As DEXPDDDeliveryTerms
|
|
Get
|
|
Return Me._deliveryTerms
|
|
End Get
|
|
Set(value As DEXPDDDeliveryTerms)
|
|
Me._deliveryTerms = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property OutwardProcessing() As DEXPDDOutwardProcessing
|
|
Get
|
|
Return Me._outwardProcessing
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessing)
|
|
Me._outwardProcessing = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("GoodsItem")> _
|
|
Public Property GoodsItem() As List(Of DEXPDDGoodsItem)
|
|
Get
|
|
Return Me._goodsItem
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItem))
|
|
Me._goodsItem = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDD))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDD object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDD object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDD 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 DEXPDD, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDD)
|
|
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 DEXPDD) 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 DEXPDD
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDD)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDD
|
|
Return CType(Serializer.Deserialize(s), DEXPDD)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDD 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDD object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDD 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 DEXPDD, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDD)
|
|
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 DEXPDD) 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 DEXPDD
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDInterchangeSender
|
|
|
|
#Region "Private fields"
|
|
Private _identification As DEXPDDInterchangeSenderIdentification
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._identification = New DEXPDDInterchangeSenderIdentification()
|
|
End Sub
|
|
|
|
Public Property Identification() As DEXPDDInterchangeSenderIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDInterchangeSenderIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeSender))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeSender object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDInterchangeSender object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeSender 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 DEXPDDInterchangeSender, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeSender)
|
|
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 DEXPDDInterchangeSender) 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 DEXPDDInterchangeSender
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeSender)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeSender
|
|
Return CType(Serializer.Deserialize(s), DEXPDDInterchangeSender)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeSender 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDInterchangeSender object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeSender 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 DEXPDDInterchangeSender, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeSender)
|
|
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 DEXPDDInterchangeSender) 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 DEXPDDInterchangeSender
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDInterchangeSenderIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeSenderIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeSenderIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDInterchangeSenderIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeSenderIdentification 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 DEXPDDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeSenderIdentification)
|
|
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 DEXPDDInterchangeSenderIdentification) 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 DEXPDDInterchangeSenderIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeSenderIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeSenderIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDInterchangeSenderIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeSenderIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDInterchangeSenderIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeSenderIdentification 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 DEXPDDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeSenderIdentification)
|
|
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 DEXPDDInterchangeSenderIdentification) 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 DEXPDDInterchangeSenderIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDInterchangeRecipient
|
|
|
|
#Region "Private fields"
|
|
Private _identification As DEXPDDInterchangeRecipientIdentification
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._identification = New DEXPDDInterchangeRecipientIdentification()
|
|
End Sub
|
|
|
|
Public Property Identification() As DEXPDDInterchangeRecipientIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDInterchangeRecipientIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeRecipient))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeRecipient object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDInterchangeRecipient object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeRecipient 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 DEXPDDInterchangeRecipient, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeRecipient)
|
|
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 DEXPDDInterchangeRecipient) 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 DEXPDDInterchangeRecipient
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeRecipient)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeRecipient
|
|
Return CType(Serializer.Deserialize(s), DEXPDDInterchangeRecipient)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeRecipient 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDInterchangeRecipient object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeRecipient 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 DEXPDDInterchangeRecipient, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeRecipient)
|
|
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 DEXPDDInterchangeRecipient) 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 DEXPDDInterchangeRecipient
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDInterchangeRecipientIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeRecipientIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeRecipientIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDInterchangeRecipientIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeRecipientIdentification 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 DEXPDDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeRecipientIdentification)
|
|
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 DEXPDDInterchangeRecipientIdentification) 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 DEXPDDInterchangeRecipientIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeRecipientIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeRecipientIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDInterchangeRecipientIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDInterchangeRecipientIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDInterchangeRecipientIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDInterchangeRecipientIdentification 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 DEXPDDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDInterchangeRecipientIdentification)
|
|
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 DEXPDDInterchangeRecipientIdentification) 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 DEXPDDInterchangeRecipientIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDPreparation
|
|
|
|
#Region "Private fields"
|
|
Private _date As Date
|
|
|
|
Private _time As Date
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property [Date]() As Date
|
|
Get
|
|
Return Me._date
|
|
End Get
|
|
Set(value As Date)
|
|
Me._date = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="time")> _
|
|
Public Property Time() As Date
|
|
Get
|
|
Return Me._time
|
|
End Get
|
|
Set(value As Date)
|
|
Me._time = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDPreparation))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDPreparation object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDPreparation object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDPreparation 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 DEXPDDPreparation, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDPreparation)
|
|
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 DEXPDDPreparation) 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 DEXPDDPreparation
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDPreparation)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDPreparation
|
|
Return CType(Serializer.Deserialize(s), DEXPDDPreparation)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDPreparation 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDPreparation object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDPreparation 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 DEXPDDPreparation, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDPreparation)
|
|
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 DEXPDDPreparation) 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 DEXPDDPreparation
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDMessageGroup
|
|
|
|
'''<remarks/>
|
|
EXP
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDMessageType
|
|
|
|
'''<remarks/>
|
|
DEXPDD
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeader
|
|
|
|
#Region "Private fields"
|
|
Private _declaration As DEXPDDHeaderDeclaration
|
|
|
|
Private _movementReferenceNumber As String
|
|
|
|
Private _messageVersion As String
|
|
|
|
Private _exportCountry As String
|
|
|
|
Private _destinationCountry As String
|
|
|
|
Private _declarationDateTime As Date
|
|
|
|
Private _decisiveDate As Date
|
|
|
|
Private _exitDate As Date
|
|
|
|
Private _specificCircumstanceIndicator As String
|
|
|
|
Private _transportChargesPaymentMethod As String
|
|
|
|
Private _partyConstellation As DEXPDDHeaderPartyConstellation
|
|
|
|
Private _containerFlag As DEXPDDHeaderContainerFlag
|
|
|
|
Private _totalGrossMassMeasure As Decimal
|
|
|
|
Private _registrationNumber As String
|
|
|
|
Private _annotation As String
|
|
|
|
Private _commercialReferenceNumber As String
|
|
|
|
Private _localReferenceNumber As String
|
|
|
|
Private _goodsItemQuantity As String
|
|
|
|
Private _authorizationNumber As String
|
|
|
|
Private _customsAuthorization As DEXPDDHeaderCustomsAuthorization
|
|
|
|
Private _inlandTransportMeans As DEXPDDHeaderInlandTransportMeans
|
|
|
|
Private _departureTransportMeans As DEXPDDHeaderDepartureTransportMeans
|
|
|
|
Private _borderTransportMeans As DEXPDDHeaderBorderTransportMeans
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._borderTransportMeans = New DEXPDDHeaderBorderTransportMeans()
|
|
Me._departureTransportMeans = New DEXPDDHeaderDepartureTransportMeans()
|
|
Me._inlandTransportMeans = New DEXPDDHeaderInlandTransportMeans()
|
|
Me._customsAuthorization = New DEXPDDHeaderCustomsAuthorization()
|
|
Me._declaration = New DEXPDDHeaderDeclaration()
|
|
End Sub
|
|
|
|
Public Property Declaration() As DEXPDDHeaderDeclaration
|
|
Get
|
|
Return Me._declaration
|
|
End Get
|
|
Set(value As DEXPDDHeaderDeclaration)
|
|
Me._declaration = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MovementReferenceNumber() As String
|
|
Get
|
|
Return Me._movementReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._movementReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MessageVersion() As String
|
|
Get
|
|
Return Me._messageVersion
|
|
End Get
|
|
Set(value As String)
|
|
Me._messageVersion = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ExportCountry() As String
|
|
Get
|
|
Return Me._exportCountry
|
|
End Get
|
|
Set(value As String)
|
|
Me._exportCountry = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property DestinationCountry() As String
|
|
Get
|
|
Return Me._destinationCountry
|
|
End Get
|
|
Set(value As String)
|
|
Me._destinationCountry = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DeclarationDateTime() As Date
|
|
Get
|
|
Return Me._declarationDateTime
|
|
End Get
|
|
Set(value As Date)
|
|
Me._declarationDateTime = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property DecisiveDate() As Date
|
|
Get
|
|
Return Me._decisiveDate
|
|
End Get
|
|
Set(value As Date)
|
|
Me._decisiveDate = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property ExitDate() As Date
|
|
Get
|
|
Return Me._exitDate
|
|
End Get
|
|
Set(value As Date)
|
|
Me._exitDate = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SpecificCircumstanceIndicator() As String
|
|
Get
|
|
Return Me._specificCircumstanceIndicator
|
|
End Get
|
|
Set(value As String)
|
|
Me._specificCircumstanceIndicator = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TransportChargesPaymentMethod() As String
|
|
Get
|
|
Return Me._transportChargesPaymentMethod
|
|
End Get
|
|
Set(value As String)
|
|
Me._transportChargesPaymentMethod = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PartyConstellation() As DEXPDDHeaderPartyConstellation
|
|
Get
|
|
Return Me._partyConstellation
|
|
End Get
|
|
Set(value As DEXPDDHeaderPartyConstellation)
|
|
Me._partyConstellation = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContainerFlag() As DEXPDDHeaderContainerFlag
|
|
Get
|
|
Return Me._containerFlag
|
|
End Get
|
|
Set(value As DEXPDDHeaderContainerFlag)
|
|
Me._containerFlag = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property TotalGrossMassMeasure() As Decimal
|
|
Get
|
|
Return Me._totalGrossMassMeasure
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._totalGrossMassMeasure = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property RegistrationNumber() As String
|
|
Get
|
|
Return Me._registrationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._registrationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Annotation() As String
|
|
Get
|
|
Return Me._annotation
|
|
End Get
|
|
Set(value As String)
|
|
Me._annotation = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property CommercialReferenceNumber() As String
|
|
Get
|
|
Return Me._commercialReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._commercialReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property LocalReferenceNumber() As String
|
|
Get
|
|
Return Me._localReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._localReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property GoodsItemQuantity() As String
|
|
Get
|
|
Return Me._goodsItemQuantity
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsItemQuantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property AuthorizationNumber() As String
|
|
Get
|
|
Return Me._authorizationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._authorizationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CustomsAuthorization() As DEXPDDHeaderCustomsAuthorization
|
|
Get
|
|
Return Me._customsAuthorization
|
|
End Get
|
|
Set(value As DEXPDDHeaderCustomsAuthorization)
|
|
Me._customsAuthorization = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property InlandTransportMeans() As DEXPDDHeaderInlandTransportMeans
|
|
Get
|
|
Return Me._inlandTransportMeans
|
|
End Get
|
|
Set(value As DEXPDDHeaderInlandTransportMeans)
|
|
Me._inlandTransportMeans = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DepartureTransportMeans() As DEXPDDHeaderDepartureTransportMeans
|
|
Get
|
|
Return Me._departureTransportMeans
|
|
End Get
|
|
Set(value As DEXPDDHeaderDepartureTransportMeans)
|
|
Me._departureTransportMeans = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BorderTransportMeans() As DEXPDDHeaderBorderTransportMeans
|
|
Get
|
|
Return Me._borderTransportMeans
|
|
End Get
|
|
Set(value As DEXPDDHeaderBorderTransportMeans)
|
|
Me._borderTransportMeans = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeader))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeader object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeader object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeader 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 DEXPDDHeader, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeader)
|
|
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 DEXPDDHeader) 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 DEXPDDHeader
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeader)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeader
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeader)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeader 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeader object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeader 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 DEXPDDHeader, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeader)
|
|
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 DEXPDDHeader) 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 DEXPDDHeader
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeaderDeclaration
|
|
|
|
#Region "Private fields"
|
|
Private _type As String
|
|
|
|
Private _procedure As String
|
|
|
|
Private _variant As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Type() As String
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As String)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Procedure() As String
|
|
Get
|
|
Return Me._procedure
|
|
End Get
|
|
Set(value As String)
|
|
Me._procedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property [Variant]() As String
|
|
Get
|
|
Return Me._variant
|
|
End Get
|
|
Set(value As String)
|
|
Me._variant = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderDeclaration))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderDeclaration object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeaderDeclaration object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderDeclaration 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 DEXPDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderDeclaration)
|
|
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 DEXPDDHeaderDeclaration) 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 DEXPDDHeaderDeclaration
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderDeclaration)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderDeclaration
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeaderDeclaration)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderDeclaration 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeaderDeclaration object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderDeclaration 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 DEXPDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderDeclaration)
|
|
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 DEXPDDHeaderDeclaration) 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 DEXPDDHeaderDeclaration
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDHeaderPartyConstellation
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0000")> _
|
|
Item0000
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0001")> _
|
|
Item0001
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0003")> _
|
|
Item0003
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0010")> _
|
|
Item0010
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0011")> _
|
|
Item0011
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0013")> _
|
|
Item0013
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0100")> _
|
|
Item0100
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0101")> _
|
|
Item0101
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0103")> _
|
|
Item0103
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0110")> _
|
|
Item0110
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0111")> _
|
|
Item0111
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0113")> _
|
|
Item0113
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1000")> _
|
|
Item1000
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1001")> _
|
|
Item1001
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1002")> _
|
|
Item1002
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1003")> _
|
|
Item1003
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1010")> _
|
|
Item1010
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1011")> _
|
|
Item1011
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1012")> _
|
|
Item1012
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1013")> _
|
|
Item1013
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1100")> _
|
|
Item1100
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1101")> _
|
|
Item1101
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1102")> _
|
|
Item1102
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1103")> _
|
|
Item1103
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1110")> _
|
|
Item1110
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1111")> _
|
|
Item1111
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1112")> _
|
|
Item1112
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1113")> _
|
|
Item1113
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDHeaderContainerFlag
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeaderCustomsAuthorization
|
|
|
|
#Region "Private fields"
|
|
Private _localClearanceOutwardProcessing As String
|
|
|
|
Private _outwardProcessing As String
|
|
|
|
Private _trustedExporter As String
|
|
|
|
Private _accreditedExporter As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property LocalClearanceOutwardProcessing() As String
|
|
Get
|
|
Return Me._localClearanceOutwardProcessing
|
|
End Get
|
|
Set(value As String)
|
|
Me._localClearanceOutwardProcessing = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property OutwardProcessing() As String
|
|
Get
|
|
Return Me._outwardProcessing
|
|
End Get
|
|
Set(value As String)
|
|
Me._outwardProcessing = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TrustedExporter() As String
|
|
Get
|
|
Return Me._trustedExporter
|
|
End Get
|
|
Set(value As String)
|
|
Me._trustedExporter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property AccreditedExporter() As String
|
|
Get
|
|
Return Me._accreditedExporter
|
|
End Get
|
|
Set(value As String)
|
|
Me._accreditedExporter = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderCustomsAuthorization))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderCustomsAuthorization object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeaderCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderCustomsAuthorization 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 DEXPDDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderCustomsAuthorization)
|
|
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 DEXPDDHeaderCustomsAuthorization) 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 DEXPDDHeaderCustomsAuthorization
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderCustomsAuthorization)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderCustomsAuthorization
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeaderCustomsAuthorization)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderCustomsAuthorization 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeaderCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderCustomsAuthorization 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 DEXPDDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderCustomsAuthorization)
|
|
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 DEXPDDHeaderCustomsAuthorization) 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 DEXPDDHeaderCustomsAuthorization
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeaderInlandTransportMeans
|
|
|
|
#Region "Private fields"
|
|
Private _mode As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Mode() As String
|
|
Get
|
|
Return Me._mode
|
|
End Get
|
|
Set(value As String)
|
|
Me._mode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderInlandTransportMeans))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderInlandTransportMeans object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeaderInlandTransportMeans object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderInlandTransportMeans 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 DEXPDDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderInlandTransportMeans)
|
|
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 DEXPDDHeaderInlandTransportMeans) 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 DEXPDDHeaderInlandTransportMeans
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderInlandTransportMeans)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderInlandTransportMeans
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeaderInlandTransportMeans)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderInlandTransportMeans 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeaderInlandTransportMeans object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderInlandTransportMeans 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 DEXPDDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderInlandTransportMeans)
|
|
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 DEXPDDHeaderInlandTransportMeans) 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 DEXPDDHeaderInlandTransportMeans
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeaderDepartureTransportMeans
|
|
|
|
#Region "Private fields"
|
|
Private _type As DEXPDDHeaderDepartureTransportMeansType
|
|
|
|
Private _identity As String
|
|
|
|
Private _nationality As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Type() As DEXPDDHeaderDepartureTransportMeansType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDHeaderDepartureTransportMeansType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Identity() As String
|
|
Get
|
|
Return Me._identity
|
|
End Get
|
|
Set(value As String)
|
|
Me._identity = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Nationality() As String
|
|
Get
|
|
Return Me._nationality
|
|
End Get
|
|
Set(value As String)
|
|
Me._nationality = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderDepartureTransportMeans))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderDepartureTransportMeans object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeaderDepartureTransportMeans object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderDepartureTransportMeans 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 DEXPDDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderDepartureTransportMeans)
|
|
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 DEXPDDHeaderDepartureTransportMeans) 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 DEXPDDHeaderDepartureTransportMeans
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderDepartureTransportMeans)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderDepartureTransportMeans
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeaderDepartureTransportMeans)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderDepartureTransportMeans 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeaderDepartureTransportMeans object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderDepartureTransportMeans 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 DEXPDDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderDepartureTransportMeans)
|
|
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 DEXPDDHeaderDepartureTransportMeans) 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 DEXPDDHeaderDepartureTransportMeans
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDHeaderDepartureTransportMeansType
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("10")> _
|
|
Item10
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("20")> _
|
|
Item20
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("31")> _
|
|
Item31
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("32")> _
|
|
Item32
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("33")> _
|
|
Item33
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("34")> _
|
|
Item34
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("35")> _
|
|
Item35
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("40")> _
|
|
Item40
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("50")> _
|
|
Item50
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("60")> _
|
|
Item60
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("70")> _
|
|
Item70
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDHeaderBorderTransportMeans
|
|
|
|
#Region "Private fields"
|
|
Private _mode As String
|
|
|
|
Private _type As DEXPDDHeaderBorderTransportMeansType
|
|
|
|
Private _identity As String
|
|
|
|
Private _nationality As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Mode() As String
|
|
Get
|
|
Return Me._mode
|
|
End Get
|
|
Set(value As String)
|
|
Me._mode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Type() As DEXPDDHeaderBorderTransportMeansType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDHeaderBorderTransportMeansType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Identity() As String
|
|
Get
|
|
Return Me._identity
|
|
End Get
|
|
Set(value As String)
|
|
Me._identity = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Nationality() As String
|
|
Get
|
|
Return Me._nationality
|
|
End Get
|
|
Set(value As String)
|
|
Me._nationality = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderBorderTransportMeans))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderBorderTransportMeans object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDHeaderBorderTransportMeans object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderBorderTransportMeans 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 DEXPDDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderBorderTransportMeans)
|
|
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 DEXPDDHeaderBorderTransportMeans) 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 DEXPDDHeaderBorderTransportMeans
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderBorderTransportMeans)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderBorderTransportMeans
|
|
Return CType(Serializer.Deserialize(s), DEXPDDHeaderBorderTransportMeans)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDHeaderBorderTransportMeans 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDHeaderBorderTransportMeans object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDHeaderBorderTransportMeans 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 DEXPDDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDHeaderBorderTransportMeans)
|
|
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 DEXPDDHeaderBorderTransportMeans) 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 DEXPDDHeaderBorderTransportMeans
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDHeaderBorderTransportMeansType
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("10")> _
|
|
Item10
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("20")> _
|
|
Item20
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("31")> _
|
|
Item31
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("32")> _
|
|
Item32
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("33")> _
|
|
Item33
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("34")> _
|
|
Item34
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("35")> _
|
|
Item35
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("40")> _
|
|
Item40
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("50")> _
|
|
Item50
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("60")> _
|
|
Item60
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("70")> _
|
|
Item70
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsLoadingPlace
|
|
|
|
#Region "Private fields"
|
|
Private _identification As DEXPDDGoodsLoadingPlaceIdentification
|
|
|
|
Private _address As DEXPDDGoodsLoadingPlaceAddress
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._address = New DEXPDDGoodsLoadingPlaceAddress()
|
|
Me._identification = New DEXPDDGoodsLoadingPlaceIdentification()
|
|
End Sub
|
|
|
|
Public Property Identification() As DEXPDDGoodsLoadingPlaceIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDGoodsLoadingPlaceIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDGoodsLoadingPlaceAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDGoodsLoadingPlaceAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlace))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlace object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlace object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlace 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 DEXPDDGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlace)
|
|
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 DEXPDDGoodsLoadingPlace) 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 DEXPDDGoodsLoadingPlace
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlace)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlace
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlace)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlace 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlace object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlace 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 DEXPDDGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlace)
|
|
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 DEXPDDGoodsLoadingPlace) 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 DEXPDDGoodsLoadingPlace
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsLoadingPlaceIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlaceIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlaceIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlaceIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlaceIdentification 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 DEXPDDGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlaceIdentification)
|
|
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 DEXPDDGoodsLoadingPlaceIdentification) 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 DEXPDDGoodsLoadingPlaceIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlaceIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlaceIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlaceIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlaceIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlaceIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlaceIdentification 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 DEXPDDGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlaceIdentification)
|
|
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 DEXPDDGoodsLoadingPlaceIdentification) 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 DEXPDDGoodsLoadingPlaceIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsLoadingPlaceAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _city As String
|
|
|
|
Private _complement As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Complement() As String
|
|
Get
|
|
Return Me._complement
|
|
End Get
|
|
Set(value As String)
|
|
Me._complement = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlaceAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlaceAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlaceAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlaceAddress 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 DEXPDDGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlaceAddress)
|
|
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 DEXPDDGoodsLoadingPlaceAddress) 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 DEXPDDGoodsLoadingPlaceAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlaceAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlaceAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlaceAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsLoadingPlaceAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlaceAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsLoadingPlaceAddress 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 DEXPDDGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsLoadingPlaceAddress)
|
|
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 DEXPDDGoodsLoadingPlaceAddress) 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 DEXPDDGoodsLoadingPlaceAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDExportCustomsOffice
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExportCustomsOffice))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExportCustomsOffice object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDExportCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExportCustomsOffice 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 DEXPDDExportCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExportCustomsOffice)
|
|
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 DEXPDDExportCustomsOffice) 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 DEXPDDExportCustomsOffice
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExportCustomsOffice)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExportCustomsOffice
|
|
Return CType(Serializer.Deserialize(s), DEXPDDExportCustomsOffice)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExportCustomsOffice 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDExportCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExportCustomsOffice 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 DEXPDDExportCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExportCustomsOffice)
|
|
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 DEXPDDExportCustomsOffice) 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 DEXPDDExportCustomsOffice
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDSupplementaryDeclarationCustomsOffice
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSupplementaryDeclarationCustomsOffice))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSupplementaryDeclarationCustomsOffice object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDSupplementaryDeclarationCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSupplementaryDeclarationCustomsOffice 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 DEXPDDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSupplementaryDeclarationCustomsOffice)
|
|
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 DEXPDDSupplementaryDeclarationCustomsOffice) 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 DEXPDDSupplementaryDeclarationCustomsOffice
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSupplementaryDeclarationCustomsOffice)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSupplementaryDeclarationCustomsOffice
|
|
Return CType(Serializer.Deserialize(s), DEXPDDSupplementaryDeclarationCustomsOffice)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSupplementaryDeclarationCustomsOffice 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDSupplementaryDeclarationCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSupplementaryDeclarationCustomsOffice 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 DEXPDDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSupplementaryDeclarationCustomsOffice)
|
|
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 DEXPDDSupplementaryDeclarationCustomsOffice) 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 DEXPDDSupplementaryDeclarationCustomsOffice
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDIntendedExitCustomsOffice
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDIntendedExitCustomsOffice))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDIntendedExitCustomsOffice object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDIntendedExitCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDIntendedExitCustomsOffice 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 DEXPDDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDIntendedExitCustomsOffice)
|
|
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 DEXPDDIntendedExitCustomsOffice) 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 DEXPDDIntendedExitCustomsOffice
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDIntendedExitCustomsOffice)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDIntendedExitCustomsOffice
|
|
Return CType(Serializer.Deserialize(s), DEXPDDIntendedExitCustomsOffice)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDIntendedExitCustomsOffice 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDIntendedExitCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDIntendedExitCustomsOffice 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 DEXPDDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDIntendedExitCustomsOffice)
|
|
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 DEXPDDIntendedExitCustomsOffice) 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 DEXPDDIntendedExitCustomsOffice
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDActualExitCustomsOffice
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDActualExitCustomsOffice))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDActualExitCustomsOffice object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDActualExitCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDActualExitCustomsOffice 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 DEXPDDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDActualExitCustomsOffice)
|
|
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 DEXPDDActualExitCustomsOffice) 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 DEXPDDActualExitCustomsOffice
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDActualExitCustomsOffice)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDActualExitCustomsOffice
|
|
Return CType(Serializer.Deserialize(s), DEXPDDActualExitCustomsOffice)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDActualExitCustomsOffice 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDActualExitCustomsOffice object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDActualExitCustomsOffice 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 DEXPDDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDActualExitCustomsOffice)
|
|
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 DEXPDDActualExitCustomsOffice) 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 DEXPDDActualExitCustomsOffice
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDTransaction
|
|
|
|
#Region "Private fields"
|
|
Private _type As DEXPDDTransactionType
|
|
|
|
Private _invoiceAmount As Decimal
|
|
|
|
Private _currency As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Type() As DEXPDDTransactionType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDTransactionType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property InvoiceAmount() As Decimal
|
|
Get
|
|
Return Me._invoiceAmount
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._invoiceAmount = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Currency() As String
|
|
Get
|
|
Return Me._currency
|
|
End Get
|
|
Set(value As String)
|
|
Me._currency = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDTransaction))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDTransaction object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDTransaction object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDTransaction 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 DEXPDDTransaction, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDTransaction)
|
|
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 DEXPDDTransaction) 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 DEXPDDTransaction
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDTransaction)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDTransaction
|
|
Return CType(Serializer.Deserialize(s), DEXPDDTransaction)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDTransaction 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDTransaction object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDTransaction 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 DEXPDDTransaction, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDTransaction)
|
|
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 DEXPDDTransaction) 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 DEXPDDTransaction
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDTransactionType
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("11")> _
|
|
Item11
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("12")> _
|
|
Item12
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("13")> _
|
|
Item13
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("14")> _
|
|
Item14
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("19")> _
|
|
Item19
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("21")> _
|
|
Item21
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("22")> _
|
|
Item22
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("23")> _
|
|
Item23
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("29")> _
|
|
Item29
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("31")> _
|
|
Item31
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("32")> _
|
|
Item32
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("33")> _
|
|
Item33
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("34")> _
|
|
Item34
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("41")> _
|
|
Item41
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("42")> _
|
|
Item42
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("51")> _
|
|
Item51
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("52")> _
|
|
Item52
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("67")> _
|
|
Item67
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("69")> _
|
|
Item69
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("71")> _
|
|
Item71
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("72")> _
|
|
Item72
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("81")> _
|
|
Item81
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("91")> _
|
|
Item91
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("92")> _
|
|
Item92
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("99")> _
|
|
Item99
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDSpecialFact
|
|
|
|
#Region "Private fields"
|
|
Private _indicator As DEXPDDSpecialFactIndicator
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Indicator() As DEXPDDSpecialFactIndicator
|
|
Get
|
|
Return Me._indicator
|
|
End Get
|
|
Set(value As DEXPDDSpecialFactIndicator)
|
|
Me._indicator = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSpecialFact))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSpecialFact object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDSpecialFact object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSpecialFact 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 DEXPDDSpecialFact, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSpecialFact)
|
|
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 DEXPDDSpecialFact) 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 DEXPDDSpecialFact
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSpecialFact)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSpecialFact
|
|
Return CType(Serializer.Deserialize(s), DEXPDDSpecialFact)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSpecialFact 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDSpecialFact object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSpecialFact 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 DEXPDDSpecialFact, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSpecialFact)
|
|
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 DEXPDDSpecialFact) 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 DEXPDDSpecialFact
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDSpecialFactIndicator
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("3")> _
|
|
Item3
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("4")> _
|
|
Item4
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("5")> _
|
|
Item5
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDItinerary
|
|
|
|
#Region "Private fields"
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDItinerary))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDItinerary object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDItinerary object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDItinerary 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 DEXPDDItinerary, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDItinerary)
|
|
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 DEXPDDItinerary) 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 DEXPDDItinerary
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDItinerary)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDItinerary
|
|
Return CType(Serializer.Deserialize(s), DEXPDDItinerary)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDItinerary 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDItinerary object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDItinerary 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 DEXPDDItinerary, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDItinerary)
|
|
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 DEXPDDItinerary) 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 DEXPDDItinerary
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDSeals
|
|
|
|
#Region "Private fields"
|
|
Private _type As DEXPDDSealsType
|
|
|
|
Private _number As String
|
|
|
|
Private _seal As List(Of DEXPDDSealsSeal)
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._seal = New List(Of DEXPDDSealsSeal)()
|
|
End Sub
|
|
|
|
Public Property Type() As DEXPDDSealsType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDSealsType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property Number() As String
|
|
Get
|
|
Return Me._number
|
|
End Get
|
|
Set(value As String)
|
|
Me._number = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Seal")> _
|
|
Public Property Seal() As List(Of DEXPDDSealsSeal)
|
|
Get
|
|
Return Me._seal
|
|
End Get
|
|
Set(value As List(Of DEXPDDSealsSeal))
|
|
Me._seal = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSeals))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSeals object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDSeals object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSeals 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 DEXPDDSeals, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSeals)
|
|
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 DEXPDDSeals) 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 DEXPDDSeals
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSeals)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSeals
|
|
Return CType(Serializer.Deserialize(s), DEXPDDSeals)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSeals 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDSeals object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSeals 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 DEXPDDSeals, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSeals)
|
|
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 DEXPDDSeals) 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 DEXPDDSeals
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDSealsType
|
|
|
|
'''<remarks/>
|
|
P
|
|
|
|
'''<remarks/>
|
|
R
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDSealsSeal
|
|
|
|
#Region "Private fields"
|
|
Private _identity As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Identity() As String
|
|
Get
|
|
Return Me._identity
|
|
End Get
|
|
Set(value As String)
|
|
Me._identity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSealsSeal))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSealsSeal object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDSealsSeal object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSealsSeal 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 DEXPDDSealsSeal, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSealsSeal)
|
|
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 DEXPDDSealsSeal) 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 DEXPDDSealsSeal
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSealsSeal)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSealsSeal
|
|
Return CType(Serializer.Deserialize(s), DEXPDDSealsSeal)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDSealsSeal 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDSealsSeal object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDSealsSeal 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 DEXPDDSealsSeal, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDSealsSeal)
|
|
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 DEXPDDSealsSeal) 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 DEXPDDSealsSeal
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDPresentationPackingLoading
|
|
|
|
#Region "Private fields"
|
|
Private _startDateTime As Date
|
|
|
|
Private _endDateTime As Date
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property StartDateTime() As Date
|
|
Get
|
|
Return Me._startDateTime
|
|
End Get
|
|
Set(value As Date)
|
|
Me._startDateTime = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EndDateTime() As Date
|
|
Get
|
|
Return Me._endDateTime
|
|
End Get
|
|
Set(value As Date)
|
|
Me._endDateTime = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDPresentationPackingLoading))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDPresentationPackingLoading object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDPresentationPackingLoading object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDPresentationPackingLoading 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 DEXPDDPresentationPackingLoading, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDPresentationPackingLoading)
|
|
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 DEXPDDPresentationPackingLoading) 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 DEXPDDPresentationPackingLoading
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDPresentationPackingLoading)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDPresentationPackingLoading
|
|
Return CType(Serializer.Deserialize(s), DEXPDDPresentationPackingLoading)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDPresentationPackingLoading 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDPresentationPackingLoading object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDPresentationPackingLoading 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 DEXPDDPresentationPackingLoading, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDPresentationPackingLoading)
|
|
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 DEXPDDPresentationPackingLoading) 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 DEXPDDPresentationPackingLoading
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDExporter
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDExporterClass
|
|
|
|
Private _identification As DEXPDDExporterIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDExporterAddress
|
|
|
|
Private _contactPerson As DEXPDDExporterContactPerson
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._contactPerson = New DEXPDDExporterContactPerson()
|
|
Me._address = New DEXPDDExporterAddress()
|
|
Me._identification = New DEXPDDExporterIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDExporterClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDExporterClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDExporterIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDExporterIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDExporterAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDExporterAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContactPerson() As DEXPDDExporterContactPerson
|
|
Get
|
|
Return Me._contactPerson
|
|
End Get
|
|
Set(value As DEXPDDExporterContactPerson)
|
|
Me._contactPerson = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporter))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporter object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDExporter object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporter 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 DEXPDDExporter, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporter)
|
|
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 DEXPDDExporter) 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 DEXPDDExporter
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporter)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporter
|
|
Return CType(Serializer.Deserialize(s), DEXPDDExporter)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporter 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDExporter object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporter 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 DEXPDDExporter, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporter)
|
|
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 DEXPDDExporter) 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 DEXPDDExporter
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDExporterClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("4")> _
|
|
Item4
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDExporterIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDExporterIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterIdentification 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 DEXPDDExporterIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterIdentification)
|
|
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 DEXPDDExporterIdentification) 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 DEXPDDExporterIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDExporterIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDExporterIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterIdentification 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 DEXPDDExporterIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterIdentification)
|
|
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 DEXPDDExporterIdentification) 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 DEXPDDExporterIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDExporterAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDExporterAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterAddress 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 DEXPDDExporterAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterAddress)
|
|
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 DEXPDDExporterAddress) 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 DEXPDDExporterAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDExporterAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDExporterAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterAddress 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 DEXPDDExporterAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterAddress)
|
|
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 DEXPDDExporterAddress) 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 DEXPDDExporterAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDExporterContactPerson
|
|
|
|
#Region "Private fields"
|
|
Private _position As String
|
|
|
|
Private _name As String
|
|
|
|
Private _phoneNumber As String
|
|
|
|
Private _facsimileNumber As String
|
|
|
|
Private _mailAddress As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Position() As String
|
|
Get
|
|
Return Me._position
|
|
End Get
|
|
Set(value As String)
|
|
Me._position = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PhoneNumber() As String
|
|
Get
|
|
Return Me._phoneNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._phoneNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property FacsimileNumber() As String
|
|
Get
|
|
Return Me._facsimileNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._facsimileNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MailAddress() As String
|
|
Get
|
|
Return Me._mailAddress
|
|
End Get
|
|
Set(value As String)
|
|
Me._mailAddress = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterContactPerson))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterContactPerson object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDExporterContactPerson object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterContactPerson 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 DEXPDDExporterContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterContactPerson)
|
|
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 DEXPDDExporterContactPerson) 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 DEXPDDExporterContactPerson
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterContactPerson)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterContactPerson
|
|
Return CType(Serializer.Deserialize(s), DEXPDDExporterContactPerson)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDExporterContactPerson 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDExporterContactPerson object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDExporterContactPerson 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 DEXPDDExporterContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDExporterContactPerson)
|
|
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 DEXPDDExporterContactPerson) 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 DEXPDDExporterContactPerson
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDDeclarant
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDDeclarantClass
|
|
|
|
Private _identification As DEXPDDDeclarantIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDDeclarantAddress
|
|
|
|
Private _contactPerson As DEXPDDDeclarantContactPerson
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._contactPerson = New DEXPDDDeclarantContactPerson()
|
|
Me._address = New DEXPDDDeclarantAddress()
|
|
Me._identification = New DEXPDDDeclarantIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDDeclarantClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDDeclarantClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDDeclarantIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDDeclarantIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDDeclarantAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDDeclarantAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContactPerson() As DEXPDDDeclarantContactPerson
|
|
Get
|
|
Return Me._contactPerson
|
|
End Get
|
|
Set(value As DEXPDDDeclarantContactPerson)
|
|
Me._contactPerson = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarant))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarant object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDDeclarant object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarant 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 DEXPDDDeclarant, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarant)
|
|
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 DEXPDDDeclarant) 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 DEXPDDDeclarant
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarant)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarant
|
|
Return CType(Serializer.Deserialize(s), DEXPDDDeclarant)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarant 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDDeclarant object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarant 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 DEXPDDDeclarant, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarant)
|
|
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 DEXPDDDeclarant) 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 DEXPDDDeclarant
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDDeclarantClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDDeclarantIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDDeclarantIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantIdentification 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 DEXPDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantIdentification)
|
|
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 DEXPDDDeclarantIdentification) 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 DEXPDDDeclarantIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDDeclarantIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDDeclarantIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantIdentification 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 DEXPDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantIdentification)
|
|
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 DEXPDDDeclarantIdentification) 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 DEXPDDDeclarantIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDDeclarantAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDDeclarantAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantAddress 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 DEXPDDDeclarantAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantAddress)
|
|
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 DEXPDDDeclarantAddress) 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 DEXPDDDeclarantAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDDeclarantAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDDeclarantAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantAddress 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 DEXPDDDeclarantAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantAddress)
|
|
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 DEXPDDDeclarantAddress) 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 DEXPDDDeclarantAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDDeclarantContactPerson
|
|
|
|
#Region "Private fields"
|
|
Private _position As String
|
|
|
|
Private _name As String
|
|
|
|
Private _phoneNumber As String
|
|
|
|
Private _facsimileNumber As String
|
|
|
|
Private _mailAddress As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Position() As String
|
|
Get
|
|
Return Me._position
|
|
End Get
|
|
Set(value As String)
|
|
Me._position = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PhoneNumber() As String
|
|
Get
|
|
Return Me._phoneNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._phoneNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property FacsimileNumber() As String
|
|
Get
|
|
Return Me._facsimileNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._facsimileNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MailAddress() As String
|
|
Get
|
|
Return Me._mailAddress
|
|
End Get
|
|
Set(value As String)
|
|
Me._mailAddress = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantContactPerson))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantContactPerson object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDDeclarantContactPerson object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantContactPerson 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 DEXPDDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantContactPerson)
|
|
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 DEXPDDDeclarantContactPerson) 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 DEXPDDDeclarantContactPerson
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantContactPerson)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantContactPerson
|
|
Return CType(Serializer.Deserialize(s), DEXPDDDeclarantContactPerson)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeclarantContactPerson 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDDeclarantContactPerson object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeclarantContactPerson 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 DEXPDDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeclarantContactPerson)
|
|
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 DEXPDDDeclarantContactPerson) 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 DEXPDDDeclarantContactPerson
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDRepresentative
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDRepresentativeClass
|
|
|
|
Private _identification As DEXPDDRepresentativeIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDRepresentativeAddress
|
|
|
|
Private _contactPerson As DEXPDDRepresentativeContactPerson
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._contactPerson = New DEXPDDRepresentativeContactPerson()
|
|
Me._address = New DEXPDDRepresentativeAddress()
|
|
Me._identification = New DEXPDDRepresentativeIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDRepresentativeClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDRepresentativeClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDRepresentativeIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDRepresentativeIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDRepresentativeAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDRepresentativeAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContactPerson() As DEXPDDRepresentativeContactPerson
|
|
Get
|
|
Return Me._contactPerson
|
|
End Get
|
|
Set(value As DEXPDDRepresentativeContactPerson)
|
|
Me._contactPerson = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentative))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentative object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDRepresentative object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentative 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 DEXPDDRepresentative, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentative)
|
|
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 DEXPDDRepresentative) 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 DEXPDDRepresentative
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentative)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentative
|
|
Return CType(Serializer.Deserialize(s), DEXPDDRepresentative)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentative 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDRepresentative object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentative 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 DEXPDDRepresentative, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentative)
|
|
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 DEXPDDRepresentative) 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 DEXPDDRepresentative
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDRepresentativeClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDRepresentativeIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDRepresentativeIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeIdentification 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 DEXPDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeIdentification)
|
|
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 DEXPDDRepresentativeIdentification) 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 DEXPDDRepresentativeIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDRepresentativeIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeIdentification 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 DEXPDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeIdentification)
|
|
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 DEXPDDRepresentativeIdentification) 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 DEXPDDRepresentativeIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDRepresentativeAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDRepresentativeAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeAddress 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 DEXPDDRepresentativeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeAddress)
|
|
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 DEXPDDRepresentativeAddress) 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 DEXPDDRepresentativeAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDRepresentativeAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeAddress 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 DEXPDDRepresentativeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeAddress)
|
|
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 DEXPDDRepresentativeAddress) 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 DEXPDDRepresentativeAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDRepresentativeContactPerson
|
|
|
|
#Region "Private fields"
|
|
Private _position As String
|
|
|
|
Private _name As String
|
|
|
|
Private _phoneNumber As String
|
|
|
|
Private _facsimileNumber As String
|
|
|
|
Private _mailAddress As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Position() As String
|
|
Get
|
|
Return Me._position
|
|
End Get
|
|
Set(value As String)
|
|
Me._position = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PhoneNumber() As String
|
|
Get
|
|
Return Me._phoneNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._phoneNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property FacsimileNumber() As String
|
|
Get
|
|
Return Me._facsimileNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._facsimileNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MailAddress() As String
|
|
Get
|
|
Return Me._mailAddress
|
|
End Get
|
|
Set(value As String)
|
|
Me._mailAddress = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeContactPerson))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeContactPerson object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDRepresentativeContactPerson object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeContactPerson 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 DEXPDDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeContactPerson)
|
|
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 DEXPDDRepresentativeContactPerson) 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 DEXPDDRepresentativeContactPerson
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeContactPerson)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeContactPerson
|
|
Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeContactPerson)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDRepresentativeContactPerson 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDRepresentativeContactPerson object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDRepresentativeContactPerson 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 DEXPDDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDRepresentativeContactPerson)
|
|
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 DEXPDDRepresentativeContactPerson) 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 DEXPDDRepresentativeContactPerson
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDContractor
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDContractorClass
|
|
|
|
Private _identification As DEXPDDContractorIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDContractorAddress
|
|
|
|
Private _contactPerson As DEXPDDContractorContactPerson
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._contactPerson = New DEXPDDContractorContactPerson()
|
|
Me._address = New DEXPDDContractorAddress()
|
|
Me._identification = New DEXPDDContractorIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDContractorClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDContractorClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDContractorIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDContractorIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDContractorAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDContractorAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContactPerson() As DEXPDDContractorContactPerson
|
|
Get
|
|
Return Me._contactPerson
|
|
End Get
|
|
Set(value As DEXPDDContractorContactPerson)
|
|
Me._contactPerson = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractor))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractor object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDContractor object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractor 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 DEXPDDContractor, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractor)
|
|
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 DEXPDDContractor) 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 DEXPDDContractor
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractor)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractor
|
|
Return CType(Serializer.Deserialize(s), DEXPDDContractor)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractor 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDContractor object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractor 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 DEXPDDContractor, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractor)
|
|
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 DEXPDDContractor) 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 DEXPDDContractor
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDContractorClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDContractorIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDContractorIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorIdentification 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 DEXPDDContractorIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorIdentification)
|
|
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 DEXPDDContractorIdentification) 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 DEXPDDContractorIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDContractorIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDContractorIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorIdentification 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 DEXPDDContractorIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorIdentification)
|
|
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 DEXPDDContractorIdentification) 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 DEXPDDContractorIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDContractorAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDContractorAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorAddress 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 DEXPDDContractorAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorAddress)
|
|
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 DEXPDDContractorAddress) 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 DEXPDDContractorAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDContractorAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDContractorAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorAddress 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 DEXPDDContractorAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorAddress)
|
|
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 DEXPDDContractorAddress) 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 DEXPDDContractorAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDContractorContactPerson
|
|
|
|
#Region "Private fields"
|
|
Private _position As String
|
|
|
|
Private _name As String
|
|
|
|
Private _phoneNumber As String
|
|
|
|
Private _facsimileNumber As String
|
|
|
|
Private _mailAddress As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Position() As String
|
|
Get
|
|
Return Me._position
|
|
End Get
|
|
Set(value As String)
|
|
Me._position = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PhoneNumber() As String
|
|
Get
|
|
Return Me._phoneNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._phoneNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property FacsimileNumber() As String
|
|
Get
|
|
Return Me._facsimileNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._facsimileNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MailAddress() As String
|
|
Get
|
|
Return Me._mailAddress
|
|
End Get
|
|
Set(value As String)
|
|
Me._mailAddress = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorContactPerson))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorContactPerson object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDContractorContactPerson object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorContactPerson 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 DEXPDDContractorContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorContactPerson)
|
|
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 DEXPDDContractorContactPerson) 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 DEXPDDContractorContactPerson
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorContactPerson)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorContactPerson
|
|
Return CType(Serializer.Deserialize(s), DEXPDDContractorContactPerson)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDContractorContactPerson 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDContractorContactPerson object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDContractorContactPerson 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 DEXPDDContractorContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDContractorContactPerson)
|
|
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 DEXPDDContractorContactPerson) 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 DEXPDDContractorContactPerson
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingOwner
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDOutwardProcessingOwnerClass
|
|
|
|
Private _identification As DEXPDDOutwardProcessingOwnerIdentification
|
|
|
|
Private _contactPerson As DEXPDDOutwardProcessingOwnerContactPerson
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._contactPerson = New DEXPDDOutwardProcessingOwnerContactPerson()
|
|
Me._identification = New DEXPDDOutwardProcessingOwnerIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDOutwardProcessingOwnerClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingOwnerClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDOutwardProcessingOwnerIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingOwnerIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ContactPerson() As DEXPDDOutwardProcessingOwnerContactPerson
|
|
Get
|
|
Return Me._contactPerson
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingOwnerContactPerson)
|
|
Me._contactPerson = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwner))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwner object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwner object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwner 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 DEXPDDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwner)
|
|
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 DEXPDDOutwardProcessingOwner) 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 DEXPDDOutwardProcessingOwner
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwner)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwner
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwner)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwner 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwner object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwner 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 DEXPDDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwner)
|
|
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 DEXPDDOutwardProcessingOwner) 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 DEXPDDOutwardProcessingOwner
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDOutwardProcessingOwnerClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingOwnerIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SubsidiaryNumber() As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwnerIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwnerIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwnerIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwnerIdentification 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 DEXPDDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwnerIdentification)
|
|
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 DEXPDDOutwardProcessingOwnerIdentification) 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 DEXPDDOutwardProcessingOwnerIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwnerIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwnerIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwnerIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwnerIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwnerIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwnerIdentification 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 DEXPDDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwnerIdentification)
|
|
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 DEXPDDOutwardProcessingOwnerIdentification) 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 DEXPDDOutwardProcessingOwnerIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0000")> _
|
|
Item0000
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingOwnerContactPerson
|
|
|
|
#Region "Private fields"
|
|
Private _position As String
|
|
|
|
Private _name As String
|
|
|
|
Private _phoneNumber As String
|
|
|
|
Private _facsimileNumber As String
|
|
|
|
Private _mailAddress As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Position() As String
|
|
Get
|
|
Return Me._position
|
|
End Get
|
|
Set(value As String)
|
|
Me._position = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PhoneNumber() As String
|
|
Get
|
|
Return Me._phoneNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._phoneNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property FacsimileNumber() As String
|
|
Get
|
|
Return Me._facsimileNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._facsimileNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MailAddress() As String
|
|
Get
|
|
Return Me._mailAddress
|
|
End Get
|
|
Set(value As String)
|
|
Me._mailAddress = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwnerContactPerson))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwnerContactPerson object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwnerContactPerson object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwnerContactPerson 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 DEXPDDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwnerContactPerson)
|
|
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 DEXPDDOutwardProcessingOwnerContactPerson) 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 DEXPDDOutwardProcessingOwnerContactPerson
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwnerContactPerson)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwnerContactPerson
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwnerContactPerson)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingOwnerContactPerson 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwnerContactPerson object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingOwnerContactPerson 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 DEXPDDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingOwnerContactPerson)
|
|
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 DEXPDDOutwardProcessingOwnerContactPerson) 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 DEXPDDOutwardProcessingOwnerContactPerson
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDConsignee
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDConsigneeClass
|
|
|
|
Private _identification As DEXPDDConsigneeIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDConsigneeAddress
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._address = New DEXPDDConsigneeAddress()
|
|
Me._identification = New DEXPDDConsigneeIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDConsigneeClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDConsigneeClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDConsigneeIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDConsigneeIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDConsigneeAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDConsigneeAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsignee))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsignee object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDConsignee object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsignee 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 DEXPDDConsignee, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsignee)
|
|
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 DEXPDDConsignee) 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 DEXPDDConsignee
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsignee)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsignee
|
|
Return CType(Serializer.Deserialize(s), DEXPDDConsignee)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsignee 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDConsignee object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsignee 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 DEXPDDConsignee, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsignee)
|
|
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 DEXPDDConsignee) 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 DEXPDDConsignee
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDConsigneeClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("4")> _
|
|
Item4
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDConsigneeIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsigneeIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsigneeIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDConsigneeIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsigneeIdentification 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 DEXPDDConsigneeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsigneeIdentification)
|
|
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 DEXPDDConsigneeIdentification) 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 DEXPDDConsigneeIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsigneeIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsigneeIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDConsigneeIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsigneeIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDConsigneeIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsigneeIdentification 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 DEXPDDConsigneeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsigneeIdentification)
|
|
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 DEXPDDConsigneeIdentification) 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 DEXPDDConsigneeIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDConsigneeAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsigneeAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsigneeAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDConsigneeAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsigneeAddress 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 DEXPDDConsigneeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsigneeAddress)
|
|
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 DEXPDDConsigneeAddress) 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 DEXPDDConsigneeAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsigneeAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsigneeAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDConsigneeAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDConsigneeAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDConsigneeAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDConsigneeAddress 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 DEXPDDConsigneeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDConsigneeAddress)
|
|
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 DEXPDDConsigneeAddress) 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 DEXPDDConsigneeAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDDeliveryTerms
|
|
|
|
#Region "Private fields"
|
|
Private _incotermCode As DEXPDDDeliveryTermsIncotermCode
|
|
|
|
Private _description As String
|
|
|
|
Private _location As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property IncotermCode() As DEXPDDDeliveryTermsIncotermCode
|
|
Get
|
|
Return Me._incotermCode
|
|
End Get
|
|
Set(value As DEXPDDDeliveryTermsIncotermCode)
|
|
Me._incotermCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Description() As String
|
|
Get
|
|
Return Me._description
|
|
End Get
|
|
Set(value As String)
|
|
Me._description = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Location() As String
|
|
Get
|
|
Return Me._location
|
|
End Get
|
|
Set(value As String)
|
|
Me._location = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeliveryTerms))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeliveryTerms object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDDeliveryTerms object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeliveryTerms 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 DEXPDDDeliveryTerms, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeliveryTerms)
|
|
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 DEXPDDDeliveryTerms) 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 DEXPDDDeliveryTerms
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeliveryTerms)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeliveryTerms
|
|
Return CType(Serializer.Deserialize(s), DEXPDDDeliveryTerms)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDDeliveryTerms 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDDeliveryTerms object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDDeliveryTerms 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 DEXPDDDeliveryTerms, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDDeliveryTerms)
|
|
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 DEXPDDDeliveryTerms) 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 DEXPDDDeliveryTerms
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDDeliveryTermsIncotermCode
|
|
|
|
'''<remarks/>
|
|
CFR
|
|
|
|
'''<remarks/>
|
|
CIF
|
|
|
|
'''<remarks/>
|
|
CIP
|
|
|
|
'''<remarks/>
|
|
CPT
|
|
|
|
'''<remarks/>
|
|
DAF
|
|
|
|
'''<remarks/>
|
|
DAP
|
|
|
|
'''<remarks/>
|
|
DAT
|
|
|
|
'''<remarks/>
|
|
DDP
|
|
|
|
'''<remarks/>
|
|
DDU
|
|
|
|
'''<remarks/>
|
|
DEQ
|
|
|
|
'''<remarks/>
|
|
DES
|
|
|
|
'''<remarks/>
|
|
EXW
|
|
|
|
'''<remarks/>
|
|
FAS
|
|
|
|
'''<remarks/>
|
|
FCA
|
|
|
|
'''<remarks/>
|
|
FOB
|
|
|
|
'''<remarks/>
|
|
XXX
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessing
|
|
|
|
#Region "Private fields"
|
|
Private _reimportDate As Date
|
|
|
|
Private _usualReplacement As DEXPDDOutwardProcessingUsualReplacement
|
|
|
|
Private _reimport As List(Of DEXPDDOutwardProcessingReimport)
|
|
|
|
Private _identificationMeans As List(Of DEXPDDOutwardProcessingIdentificationMeans)
|
|
|
|
Private _product As List(Of DEXPDDOutwardProcessingProduct)
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._product = New List(Of DEXPDDOutwardProcessingProduct)()
|
|
Me._identificationMeans = New List(Of DEXPDDOutwardProcessingIdentificationMeans)()
|
|
Me._reimport = New List(Of DEXPDDOutwardProcessingReimport)()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property ReimportDate() As Date
|
|
Get
|
|
Return Me._reimportDate
|
|
End Get
|
|
Set(value As Date)
|
|
Me._reimportDate = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UsualReplacement() As DEXPDDOutwardProcessingUsualReplacement
|
|
Get
|
|
Return Me._usualReplacement
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingUsualReplacement)
|
|
Me._usualReplacement = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Reimport")> _
|
|
Public Property Reimport() As List(Of DEXPDDOutwardProcessingReimport)
|
|
Get
|
|
Return Me._reimport
|
|
End Get
|
|
Set(value As List(Of DEXPDDOutwardProcessingReimport))
|
|
Me._reimport = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("IdentificationMeans")> _
|
|
Public Property IdentificationMeans() As List(Of DEXPDDOutwardProcessingIdentificationMeans)
|
|
Get
|
|
Return Me._identificationMeans
|
|
End Get
|
|
Set(value As List(Of DEXPDDOutwardProcessingIdentificationMeans))
|
|
Me._identificationMeans = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Product")> _
|
|
Public Property Product() As List(Of DEXPDDOutwardProcessingProduct)
|
|
Get
|
|
Return Me._product
|
|
End Get
|
|
Set(value As List(Of DEXPDDOutwardProcessingProduct))
|
|
Me._product = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessing))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessing object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessing object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessing 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 DEXPDDOutwardProcessing, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessing)
|
|
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 DEXPDDOutwardProcessing) 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 DEXPDDOutwardProcessing
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessing)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessing
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessing)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessing 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessing object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessing 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 DEXPDDOutwardProcessing, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessing)
|
|
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 DEXPDDOutwardProcessing) 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 DEXPDDOutwardProcessing
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDOutwardProcessingUsualReplacement
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingReimport
|
|
|
|
#Region "Private fields"
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingReimport))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingReimport object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingReimport object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingReimport 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 DEXPDDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingReimport)
|
|
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 DEXPDDOutwardProcessingReimport) 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 DEXPDDOutwardProcessingReimport
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingReimport)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingReimport
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingReimport)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingReimport 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingReimport object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingReimport 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 DEXPDDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingReimport)
|
|
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 DEXPDDOutwardProcessingReimport) 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 DEXPDDOutwardProcessingReimport
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingIdentificationMeans
|
|
|
|
#Region "Private fields"
|
|
Private _type As DEXPDDOutwardProcessingIdentificationMeansType
|
|
|
|
Private _description As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Type() As DEXPDDOutwardProcessingIdentificationMeansType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDOutwardProcessingIdentificationMeansType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Description() As String
|
|
Get
|
|
Return Me._description
|
|
End Get
|
|
Set(value As String)
|
|
Me._description = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingIdentificationMeans))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingIdentificationMeans object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingIdentificationMeans object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingIdentificationMeans 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 DEXPDDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingIdentificationMeans)
|
|
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 DEXPDDOutwardProcessingIdentificationMeans) 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 DEXPDDOutwardProcessingIdentificationMeans
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingIdentificationMeans)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingIdentificationMeans
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingIdentificationMeans)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingIdentificationMeans 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingIdentificationMeans object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingIdentificationMeans 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 DEXPDDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingIdentificationMeans)
|
|
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 DEXPDDOutwardProcessingIdentificationMeans) 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 DEXPDDOutwardProcessingIdentificationMeans
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDOutwardProcessingIdentificationMeansType
|
|
|
|
'''<remarks/>
|
|
A
|
|
|
|
'''<remarks/>
|
|
B
|
|
|
|
'''<remarks/>
|
|
N
|
|
|
|
'''<remarks/>
|
|
O
|
|
|
|
'''<remarks/>
|
|
P
|
|
|
|
'''<remarks/>
|
|
S
|
|
|
|
'''<remarks/>
|
|
T
|
|
|
|
'''<remarks/>
|
|
Z
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDOutwardProcessingProduct
|
|
|
|
#Region "Private fields"
|
|
Private _commodityCode As String
|
|
|
|
Private _goodsDescription As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property CommodityCode() As String
|
|
Get
|
|
Return Me._commodityCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._commodityCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property GoodsDescription() As String
|
|
Get
|
|
Return Me._goodsDescription
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsDescription = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingProduct))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingProduct object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDOutwardProcessingProduct object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingProduct 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 DEXPDDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingProduct)
|
|
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 DEXPDDOutwardProcessingProduct) 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 DEXPDDOutwardProcessingProduct
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingProduct)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingProduct
|
|
Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingProduct)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDOutwardProcessingProduct 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDOutwardProcessingProduct object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDOutwardProcessingProduct 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 DEXPDDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDOutwardProcessingProduct)
|
|
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 DEXPDDOutwardProcessingProduct) 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 DEXPDDOutwardProcessingProduct
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItem
|
|
|
|
#Region "Private fields"
|
|
Private _sequenceNumber As String
|
|
|
|
Private _goodsDescription As String
|
|
|
|
Private _commercialReferenceNumber As String
|
|
|
|
Private _registrationNumber As String
|
|
|
|
Private _annotation As String
|
|
|
|
Private _originFederalState As DEXPDDGoodsItemOriginFederalState
|
|
|
|
Private _netMass As Decimal
|
|
|
|
Private _grossMass As Decimal
|
|
|
|
Private _dangerousGoodsCode As String
|
|
|
|
Private _transportChargesPaymentMethod As String
|
|
|
|
Private _commodityCode As DEXPDDGoodsItemCommodityCode
|
|
|
|
Private _procedure As DEXPDDGoodsItemProcedure
|
|
|
|
Private _exportRefund As DEXPDDGoodsItemExportRefund
|
|
|
|
Private _foreignTradeStatistics As DEXPDDGoodsItemForeignTradeStatistics
|
|
|
|
Private _consignee As DEXPDDGoodsItemConsignee
|
|
|
|
Private _package As List(Of DEXPDDGoodsItemPackage)
|
|
|
|
Private _container As List(Of DEXPDDGoodsItemContainer)
|
|
|
|
Private _document As List(Of DEXPDDGoodsItemDocument)
|
|
|
|
Private _previousAdminstrativeReference As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
|
|
Private _deliveryTerms As DEXPDDGoodsItemDeliveryTerms
|
|
|
|
Private _transaction As DEXPDDGoodsItemTransaction
|
|
|
|
Private _customsWarehouse As DEXPDDGoodsItemCustomsWarehouse
|
|
|
|
Private _inwardProcessingTransformation As DEXPDDGoodsItemInwardProcessingTransformation
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._inwardProcessingTransformation = New DEXPDDGoodsItemInwardProcessingTransformation()
|
|
Me._customsWarehouse = New DEXPDDGoodsItemCustomsWarehouse()
|
|
Me._transaction = New DEXPDDGoodsItemTransaction()
|
|
Me._deliveryTerms = New DEXPDDGoodsItemDeliveryTerms()
|
|
Me._previousAdminstrativeReference = New List(Of DEXPDDGoodsItemPreviousAdminstrativeReference)()
|
|
Me._document = New List(Of DEXPDDGoodsItemDocument)()
|
|
Me._container = New List(Of DEXPDDGoodsItemContainer)()
|
|
Me._package = New List(Of DEXPDDGoodsItemPackage)()
|
|
Me._consignee = New DEXPDDGoodsItemConsignee()
|
|
Me._foreignTradeStatistics = New DEXPDDGoodsItemForeignTradeStatistics()
|
|
Me._exportRefund = New DEXPDDGoodsItemExportRefund()
|
|
Me._procedure = New DEXPDDGoodsItemProcedure()
|
|
Me._commodityCode = New DEXPDDGoodsItemCommodityCode()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property SequenceNumber() As String
|
|
Get
|
|
Return Me._sequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._sequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property GoodsDescription() As String
|
|
Get
|
|
Return Me._goodsDescription
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsDescription = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property CommercialReferenceNumber() As String
|
|
Get
|
|
Return Me._commercialReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._commercialReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property RegistrationNumber() As String
|
|
Get
|
|
Return Me._registrationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._registrationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Annotation() As String
|
|
Get
|
|
Return Me._annotation
|
|
End Get
|
|
Set(value As String)
|
|
Me._annotation = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property OriginFederalState() As DEXPDDGoodsItemOriginFederalState
|
|
Get
|
|
Return Me._originFederalState
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemOriginFederalState)
|
|
Me._originFederalState = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property NetMass() As Decimal
|
|
Get
|
|
Return Me._netMass
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._netMass = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GrossMass() As Decimal
|
|
Get
|
|
Return Me._grossMass
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._grossMass = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property DangerousGoodsCode() As String
|
|
Get
|
|
Return Me._dangerousGoodsCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._dangerousGoodsCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TransportChargesPaymentMethod() As String
|
|
Get
|
|
Return Me._transportChargesPaymentMethod
|
|
End Get
|
|
Set(value As String)
|
|
Me._transportChargesPaymentMethod = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CommodityCode() As DEXPDDGoodsItemCommodityCode
|
|
Get
|
|
Return Me._commodityCode
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCommodityCode)
|
|
Me._commodityCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Procedure() As DEXPDDGoodsItemProcedure
|
|
Get
|
|
Return Me._procedure
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemProcedure)
|
|
Me._procedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ExportRefund() As DEXPDDGoodsItemExportRefund
|
|
Get
|
|
Return Me._exportRefund
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemExportRefund)
|
|
Me._exportRefund = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ForeignTradeStatistics() As DEXPDDGoodsItemForeignTradeStatistics
|
|
Get
|
|
Return Me._foreignTradeStatistics
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemForeignTradeStatistics)
|
|
Me._foreignTradeStatistics = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Consignee() As DEXPDDGoodsItemConsignee
|
|
Get
|
|
Return Me._consignee
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemConsignee)
|
|
Me._consignee = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Package")> _
|
|
Public Property Package() As List(Of DEXPDDGoodsItemPackage)
|
|
Get
|
|
Return Me._package
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemPackage))
|
|
Me._package = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Container")> _
|
|
Public Property Container() As List(Of DEXPDDGoodsItemContainer)
|
|
Get
|
|
Return Me._container
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemContainer))
|
|
Me._container = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("Document")> _
|
|
Public Property Document() As List(Of DEXPDDGoodsItemDocument)
|
|
Get
|
|
Return Me._document
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemDocument))
|
|
Me._document = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("PreviousAdminstrativeReference")> _
|
|
Public Property PreviousAdminstrativeReference() As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
Get
|
|
Return Me._previousAdminstrativeReference
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference))
|
|
Me._previousAdminstrativeReference = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DeliveryTerms() As DEXPDDGoodsItemDeliveryTerms
|
|
Get
|
|
Return Me._deliveryTerms
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemDeliveryTerms)
|
|
Me._deliveryTerms = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Transaction() As DEXPDDGoodsItemTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemTransaction)
|
|
Me._transaction = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CustomsWarehouse() As DEXPDDGoodsItemCustomsWarehouse
|
|
Get
|
|
Return Me._customsWarehouse
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouse)
|
|
Me._customsWarehouse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("InwardProcessing-Transformation")> _
|
|
Public Property InwardProcessingTransformation() As DEXPDDGoodsItemInwardProcessingTransformation
|
|
Get
|
|
Return Me._inwardProcessingTransformation
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemInwardProcessingTransformation)
|
|
Me._inwardProcessingTransformation = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItem))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItem object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItem object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItem 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 DEXPDDGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItem)
|
|
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 DEXPDDGoodsItem) 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 DEXPDDGoodsItem
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItem)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItem
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItem)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItem 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItem object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItem 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 DEXPDDGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItem)
|
|
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 DEXPDDGoodsItem) 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 DEXPDDGoodsItem
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemOriginFederalState
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("01")> _
|
|
Item01
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("02")> _
|
|
Item02
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("03")> _
|
|
Item03
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("04")> _
|
|
Item04
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("05")> _
|
|
Item05
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("06")> _
|
|
Item06
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("07")> _
|
|
Item07
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("08")> _
|
|
Item08
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("09")> _
|
|
Item09
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("10")> _
|
|
Item10
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("11")> _
|
|
Item11
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("12")> _
|
|
Item12
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("13")> _
|
|
Item13
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("14")> _
|
|
Item14
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("15")> _
|
|
Item15
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("16")> _
|
|
Item16
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("99")> _
|
|
Item99
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCommodityCode
|
|
|
|
#Region "Private fields"
|
|
Private _combinedNomenclatureCode As String
|
|
|
|
Private _taricCode As String
|
|
|
|
Private _taricFirstAdditionalCode As String
|
|
|
|
Private _taricSecondAdditionalCode As String
|
|
|
|
Private _nationalAdditionalCode As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property CombinedNomenclatureCode() As String
|
|
Get
|
|
Return Me._combinedNomenclatureCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._combinedNomenclatureCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TaricCode() As String
|
|
Get
|
|
Return Me._taricCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._taricCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TaricFirstAdditionalCode() As String
|
|
Get
|
|
Return Me._taricFirstAdditionalCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._taricFirstAdditionalCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property TaricSecondAdditionalCode() As String
|
|
Get
|
|
Return Me._taricSecondAdditionalCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._taricSecondAdditionalCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property NationalAdditionalCode() As String
|
|
Get
|
|
Return Me._nationalAdditionalCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._nationalAdditionalCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCommodityCode))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCommodityCode object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCommodityCode object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCommodityCode 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 DEXPDDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCommodityCode)
|
|
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 DEXPDDGoodsItemCommodityCode) 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 DEXPDDGoodsItemCommodityCode
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCommodityCode)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCommodityCode
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCommodityCode)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCommodityCode 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCommodityCode object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCommodityCode 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 DEXPDDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCommodityCode)
|
|
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 DEXPDDGoodsItemCommodityCode) 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 DEXPDDGoodsItemCommodityCode
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemProcedure
|
|
|
|
#Region "Private fields"
|
|
Private _requestedProcedure As String
|
|
|
|
Private _previousProcedure As String
|
|
|
|
Private _additionalProcedure As String
|
|
|
|
Private _exportRefundProcedure As DEXPDDGoodsItemProcedureExportRefundProcedure
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property RequestedProcedure() As String
|
|
Get
|
|
Return Me._requestedProcedure
|
|
End Get
|
|
Set(value As String)
|
|
Me._requestedProcedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property PreviousProcedure() As String
|
|
Get
|
|
Return Me._previousProcedure
|
|
End Get
|
|
Set(value As String)
|
|
Me._previousProcedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property AdditionalProcedure() As String
|
|
Get
|
|
Return Me._additionalProcedure
|
|
End Get
|
|
Set(value As String)
|
|
Me._additionalProcedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ExportRefundProcedure() As DEXPDDGoodsItemProcedureExportRefundProcedure
|
|
Get
|
|
Return Me._exportRefundProcedure
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemProcedureExportRefundProcedure)
|
|
Me._exportRefundProcedure = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemProcedure))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemProcedure object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemProcedure object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemProcedure 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 DEXPDDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemProcedure)
|
|
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 DEXPDDGoodsItemProcedure) 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 DEXPDDGoodsItemProcedure
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemProcedure)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemProcedure
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemProcedure)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemProcedure 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemProcedure object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemProcedure 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 DEXPDDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemProcedure)
|
|
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 DEXPDDGoodsItemProcedure) 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 DEXPDDGoodsItemProcedure
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemProcedureExportRefundProcedure
|
|
|
|
'''<remarks/>
|
|
E51
|
|
|
|
'''<remarks/>
|
|
E52
|
|
|
|
'''<remarks/>
|
|
E53
|
|
|
|
'''<remarks/>
|
|
E61
|
|
|
|
'''<remarks/>
|
|
E62
|
|
|
|
'''<remarks/>
|
|
E63
|
|
|
|
'''<remarks/>
|
|
E71
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemExportRefund
|
|
|
|
#Region "Private fields"
|
|
Private _quantity As Decimal
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Quantity() As Decimal
|
|
Get
|
|
Return Me._quantity
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._quantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemExportRefund))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemExportRefund object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemExportRefund object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemExportRefund 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 DEXPDDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemExportRefund)
|
|
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 DEXPDDGoodsItemExportRefund) 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 DEXPDDGoodsItemExportRefund
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemExportRefund)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemExportRefund
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemExportRefund)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemExportRefund 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemExportRefund object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemExportRefund 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 DEXPDDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemExportRefund)
|
|
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 DEXPDDGoodsItemExportRefund) 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 DEXPDDGoodsItemExportRefund
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemForeignTradeStatistics
|
|
|
|
#Region "Private fields"
|
|
Private _specialUnitQuantity As Decimal
|
|
|
|
Private _statisticalValue As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property SpecialUnitQuantity() As Decimal
|
|
Get
|
|
Return Me._specialUnitQuantity
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._specialUnitQuantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property StatisticalValue() As String
|
|
Get
|
|
Return Me._statisticalValue
|
|
End Get
|
|
Set(value As String)
|
|
Me._statisticalValue = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemForeignTradeStatistics))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemForeignTradeStatistics object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemForeignTradeStatistics object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemForeignTradeStatistics 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 DEXPDDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemForeignTradeStatistics)
|
|
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 DEXPDDGoodsItemForeignTradeStatistics) 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 DEXPDDGoodsItemForeignTradeStatistics
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemForeignTradeStatistics)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemForeignTradeStatistics
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemForeignTradeStatistics)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemForeignTradeStatistics 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemForeignTradeStatistics object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemForeignTradeStatistics 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 DEXPDDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemForeignTradeStatistics)
|
|
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 DEXPDDGoodsItemForeignTradeStatistics) 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 DEXPDDGoodsItemForeignTradeStatistics
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemConsignee
|
|
|
|
#Region "Private fields"
|
|
Private _class As DEXPDDGoodsItemConsigneeClass
|
|
|
|
Private _identification As DEXPDDGoodsItemConsigneeIdentification
|
|
|
|
Private _name As String
|
|
|
|
Private _address As DEXPDDGoodsItemConsigneeAddress
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._address = New DEXPDDGoodsItemConsigneeAddress()
|
|
Me._identification = New DEXPDDGoodsItemConsigneeIdentification()
|
|
End Sub
|
|
|
|
Public Property [Class]() As DEXPDDGoodsItemConsigneeClass
|
|
Get
|
|
Return Me._class
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemConsigneeClass)
|
|
Me._class = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Identification() As DEXPDDGoodsItemConsigneeIdentification
|
|
Get
|
|
Return Me._identification
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemConsigneeIdentification)
|
|
Me._identification = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set(value As String)
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Address() As DEXPDDGoodsItemConsigneeAddress
|
|
Get
|
|
Return Me._address
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemConsigneeAddress)
|
|
Me._address = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsignee))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsignee object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemConsignee object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsignee 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 DEXPDDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsignee)
|
|
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 DEXPDDGoodsItemConsignee) 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 DEXPDDGoodsItemConsignee
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsignee)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsignee
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsignee)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsignee 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemConsignee object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsignee 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 DEXPDDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsignee)
|
|
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 DEXPDDGoodsItemConsignee) 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 DEXPDDGoodsItemConsignee
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemConsigneeClass
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
|
Item2
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("4")> _
|
|
Item4
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemConsigneeIdentification
|
|
|
|
#Region "Private fields"
|
|
Private _referenceNumber As String
|
|
|
|
Private _subsidiaryNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property SubsidiaryNumber() As String
|
|
Get
|
|
Return Me._subsidiaryNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._subsidiaryNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsigneeIdentification))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsigneeIdentification object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemConsigneeIdentification object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsigneeIdentification 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 DEXPDDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsigneeIdentification)
|
|
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 DEXPDDGoodsItemConsigneeIdentification) 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 DEXPDDGoodsItemConsigneeIdentification
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsigneeIdentification)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsigneeIdentification
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsigneeIdentification)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsigneeIdentification 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemConsigneeIdentification object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsigneeIdentification 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 DEXPDDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsigneeIdentification)
|
|
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 DEXPDDGoodsItemConsigneeIdentification) 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 DEXPDDGoodsItemConsigneeIdentification
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemConsigneeAddress
|
|
|
|
#Region "Private fields"
|
|
Private _line As String
|
|
|
|
Private _city As String
|
|
|
|
Private _postcode As String
|
|
|
|
Private _country As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Line() As String
|
|
Get
|
|
Return Me._line
|
|
End Get
|
|
Set(value As String)
|
|
Me._line = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property City() As String
|
|
Get
|
|
Return Me._city
|
|
End Get
|
|
Set(value As String)
|
|
Me._city = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Postcode() As String
|
|
Get
|
|
Return Me._postcode
|
|
End Get
|
|
Set(value As String)
|
|
Me._postcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Country() As String
|
|
Get
|
|
Return Me._country
|
|
End Get
|
|
Set(value As String)
|
|
Me._country = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsigneeAddress))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsigneeAddress object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemConsigneeAddress object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsigneeAddress 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 DEXPDDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsigneeAddress)
|
|
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 DEXPDDGoodsItemConsigneeAddress) 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 DEXPDDGoodsItemConsigneeAddress
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsigneeAddress)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsigneeAddress
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsigneeAddress)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemConsigneeAddress 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemConsigneeAddress object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemConsigneeAddress 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 DEXPDDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemConsigneeAddress)
|
|
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 DEXPDDGoodsItemConsigneeAddress) 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 DEXPDDGoodsItemConsigneeAddress
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemPackage
|
|
|
|
#Region "Private fields"
|
|
Private _quantity As String
|
|
|
|
Private _sequenceNumber As String
|
|
|
|
Private _kind As String
|
|
|
|
Private _marksNumbers As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property Quantity() As String
|
|
Get
|
|
Return Me._quantity
|
|
End Get
|
|
Set(value As String)
|
|
Me._quantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property SequenceNumber() As String
|
|
Get
|
|
Return Me._sequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._sequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Kind() As String
|
|
Get
|
|
Return Me._kind
|
|
End Get
|
|
Set(value As String)
|
|
Me._kind = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MarksNumbers() As String
|
|
Get
|
|
Return Me._marksNumbers
|
|
End Get
|
|
Set(value As String)
|
|
Me._marksNumbers = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemPackage))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemPackage object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemPackage object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemPackage 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 DEXPDDGoodsItemPackage, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemPackage)
|
|
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 DEXPDDGoodsItemPackage) 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 DEXPDDGoodsItemPackage
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemPackage)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemPackage
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemPackage)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemPackage 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemPackage object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemPackage 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 DEXPDDGoodsItemPackage, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemPackage)
|
|
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 DEXPDDGoodsItemPackage) 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 DEXPDDGoodsItemPackage
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemContainer
|
|
|
|
#Region "Private fields"
|
|
Private _identificationNumber As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property IdentificationNumber() As String
|
|
Get
|
|
Return Me._identificationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._identificationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemContainer))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemContainer object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemContainer object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemContainer 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 DEXPDDGoodsItemContainer, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemContainer)
|
|
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 DEXPDDGoodsItemContainer) 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 DEXPDDGoodsItemContainer
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemContainer)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemContainer
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemContainer)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemContainer 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemContainer object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemContainer 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 DEXPDDGoodsItemContainer, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemContainer)
|
|
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 DEXPDDGoodsItemContainer) 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 DEXPDDGoodsItemContainer
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemDocument
|
|
|
|
#Region "Private fields"
|
|
Private _qualifier As String
|
|
|
|
Private _type As String
|
|
|
|
Private _referenceNumber As String
|
|
|
|
Private _complement As String
|
|
|
|
Private _detail As String
|
|
|
|
Private _issuingDate As Date
|
|
|
|
Private _expiryDate As Date
|
|
|
|
Private _writeOffValue As String
|
|
|
|
Private _measurementUnit As DEXPDDGoodsItemDocumentMeasurementUnit
|
|
|
|
Private _writeOffQuantity As Decimal
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me._qualifier
|
|
End Get
|
|
Set(value As String)
|
|
Me._qualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Type() As String
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As String)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Complement() As String
|
|
Get
|
|
Return Me._complement
|
|
End Get
|
|
Set(value As String)
|
|
Me._complement = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Detail() As String
|
|
Get
|
|
Return Me._detail
|
|
End Get
|
|
Set(value As String)
|
|
Me._detail = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property IssuingDate() As Date
|
|
Get
|
|
Return Me._issuingDate
|
|
End Get
|
|
Set(value As Date)
|
|
Me._issuingDate = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="date")> _
|
|
Public Property ExpiryDate() As Date
|
|
Get
|
|
Return Me._expiryDate
|
|
End Get
|
|
Set(value As Date)
|
|
Me._expiryDate = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property WriteOffValue() As String
|
|
Get
|
|
Return Me._writeOffValue
|
|
End Get
|
|
Set(value As String)
|
|
Me._writeOffValue = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MeasurementUnit() As DEXPDDGoodsItemDocumentMeasurementUnit
|
|
Get
|
|
Return Me._measurementUnit
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemDocumentMeasurementUnit)
|
|
Me._measurementUnit = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WriteOffQuantity() As Decimal
|
|
Get
|
|
Return Me._writeOffQuantity
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._writeOffQuantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemDocument))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemDocument object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemDocument object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemDocument 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 DEXPDDGoodsItemDocument, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemDocument)
|
|
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 DEXPDDGoodsItemDocument) 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 DEXPDDGoodsItemDocument
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemDocument)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemDocument
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemDocument)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemDocument 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemDocument object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemDocument 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 DEXPDDGoodsItemDocument, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemDocument)
|
|
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 DEXPDDGoodsItemDocument) 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 DEXPDDGoodsItemDocument
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemDocumentMeasurementUnit
|
|
|
|
'''<remarks/>
|
|
Los
|
|
|
|
'''<remarks/>
|
|
Mio
|
|
|
|
'''<remarks/>
|
|
Paar
|
|
|
|
'''<remarks/>
|
|
Satz
|
|
|
|
'''<remarks/>
|
|
St
|
|
|
|
'''<remarks/>
|
|
Syst
|
|
|
|
'''<remarks/>
|
|
cbm
|
|
|
|
'''<remarks/>
|
|
cm
|
|
|
|
'''<remarks/>
|
|
div
|
|
|
|
'''<remarks/>
|
|
g
|
|
|
|
'''<remarks/>
|
|
gPu
|
|
|
|
'''<remarks/>
|
|
gTh
|
|
|
|
'''<remarks/>
|
|
gU
|
|
|
|
'''<remarks/>
|
|
kg
|
|
|
|
'''<remarks/>
|
|
kgPu
|
|
|
|
'''<remarks/>
|
|
kgTh
|
|
|
|
'''<remarks/>
|
|
kgU
|
|
|
|
'''<remarks/>
|
|
km
|
|
|
|
'''<remarks/>
|
|
l
|
|
|
|
'''<remarks/>
|
|
lfm
|
|
|
|
'''<remarks/>
|
|
ltAnlage
|
|
|
|
'''<remarks/>
|
|
m
|
|
|
|
'''<remarks/>
|
|
mg
|
|
|
|
'''<remarks/>
|
|
ml
|
|
|
|
'''<remarks/>
|
|
mm
|
|
|
|
'''<remarks/>
|
|
qcm
|
|
|
|
'''<remarks/>
|
|
qm
|
|
|
|
'''<remarks/>
|
|
t
|
|
|
|
'''<remarks/>
|
|
tU
|
|
|
|
'''<remarks/>
|
|
µg
|
|
|
|
'''<remarks/>
|
|
µl
|
|
|
|
'''<remarks/>
|
|
µm
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemPreviousAdminstrativeReference
|
|
|
|
#Region "Private fields"
|
|
Private _type As String
|
|
|
|
Private _referenceNumber As String
|
|
|
|
Private _complement As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Type() As String
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As String)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ReferenceNumber() As String
|
|
Get
|
|
Return Me._referenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Complement() As String
|
|
Get
|
|
Return Me._complement
|
|
End Get
|
|
Set(value As String)
|
|
Me._complement = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemPreviousAdminstrativeReference))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemPreviousAdminstrativeReference object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemPreviousAdminstrativeReference object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemPreviousAdminstrativeReference 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 DEXPDDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
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 DEXPDDGoodsItemPreviousAdminstrativeReference) 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 DEXPDDGoodsItemPreviousAdminstrativeReference
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemPreviousAdminstrativeReference
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemPreviousAdminstrativeReference 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemPreviousAdminstrativeReference object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemPreviousAdminstrativeReference 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 DEXPDDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemPreviousAdminstrativeReference)
|
|
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 DEXPDDGoodsItemPreviousAdminstrativeReference) 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 DEXPDDGoodsItemPreviousAdminstrativeReference
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemDeliveryTerms
|
|
|
|
#Region "Private fields"
|
|
Private _incotermCode As DEXPDDGoodsItemDeliveryTermsIncotermCode
|
|
|
|
Private _description As String
|
|
|
|
Private _location As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property IncotermCode() As DEXPDDGoodsItemDeliveryTermsIncotermCode
|
|
Get
|
|
Return Me._incotermCode
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemDeliveryTermsIncotermCode)
|
|
Me._incotermCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Description() As String
|
|
Get
|
|
Return Me._description
|
|
End Get
|
|
Set(value As String)
|
|
Me._description = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Location() As String
|
|
Get
|
|
Return Me._location
|
|
End Get
|
|
Set(value As String)
|
|
Me._location = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemDeliveryTerms))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemDeliveryTerms object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemDeliveryTerms object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemDeliveryTerms 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 DEXPDDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemDeliveryTerms)
|
|
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 DEXPDDGoodsItemDeliveryTerms) 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 DEXPDDGoodsItemDeliveryTerms
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemDeliveryTerms)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemDeliveryTerms
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemDeliveryTerms)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemDeliveryTerms 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemDeliveryTerms object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemDeliveryTerms 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 DEXPDDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemDeliveryTerms)
|
|
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 DEXPDDGoodsItemDeliveryTerms) 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 DEXPDDGoodsItemDeliveryTerms
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemDeliveryTermsIncotermCode
|
|
|
|
'''<remarks/>
|
|
CFR
|
|
|
|
'''<remarks/>
|
|
CIF
|
|
|
|
'''<remarks/>
|
|
CIP
|
|
|
|
'''<remarks/>
|
|
CPT
|
|
|
|
'''<remarks/>
|
|
DAF
|
|
|
|
'''<remarks/>
|
|
DAP
|
|
|
|
'''<remarks/>
|
|
DAT
|
|
|
|
'''<remarks/>
|
|
DDP
|
|
|
|
'''<remarks/>
|
|
DDU
|
|
|
|
'''<remarks/>
|
|
DEQ
|
|
|
|
'''<remarks/>
|
|
DES
|
|
|
|
'''<remarks/>
|
|
EXW
|
|
|
|
'''<remarks/>
|
|
FAS
|
|
|
|
'''<remarks/>
|
|
FCA
|
|
|
|
'''<remarks/>
|
|
FOB
|
|
|
|
'''<remarks/>
|
|
XXX
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemTransaction
|
|
|
|
#Region "Private fields"
|
|
Private _type As DEXPDDGoodsItemTransactionType
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Property Type() As DEXPDDGoodsItemTransactionType
|
|
Get
|
|
Return Me._type
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemTransactionType)
|
|
Me._type = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemTransaction))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemTransaction object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemTransaction object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemTransaction 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 DEXPDDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemTransaction)
|
|
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 DEXPDDGoodsItemTransaction) 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 DEXPDDGoodsItemTransaction
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemTransaction)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemTransaction
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemTransaction)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemTransaction 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemTransaction object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemTransaction 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 DEXPDDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemTransaction)
|
|
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 DEXPDDGoodsItemTransaction) 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 DEXPDDGoodsItemTransaction
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemTransactionType
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("11")> _
|
|
Item11
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("12")> _
|
|
Item12
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("13")> _
|
|
Item13
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("14")> _
|
|
Item14
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("19")> _
|
|
Item19
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("21")> _
|
|
Item21
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("22")> _
|
|
Item22
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("23")> _
|
|
Item23
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("29")> _
|
|
Item29
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("31")> _
|
|
Item31
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("32")> _
|
|
Item32
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("33")> _
|
|
Item33
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("34")> _
|
|
Item34
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("41")> _
|
|
Item41
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("42")> _
|
|
Item42
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("51")> _
|
|
Item51
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("52")> _
|
|
Item52
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("67")> _
|
|
Item67
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("69")> _
|
|
Item69
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("71")> _
|
|
Item71
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("72")> _
|
|
Item72
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("81")> _
|
|
Item81
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("91")> _
|
|
Item91
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("92")> _
|
|
Item92
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("99")> _
|
|
Item99
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCustomsWarehouse
|
|
|
|
#Region "Private fields"
|
|
Private _goodsItemQuantity As String
|
|
|
|
Private _customsAuthorization As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
|
|
Private _localReferenceNumber As String
|
|
|
|
Private _goodsItem As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._goodsItem = New List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem)()
|
|
Me._customsAuthorization = New DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property GoodsItemQuantity() As String
|
|
Get
|
|
Return Me._goodsItemQuantity
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsItemQuantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CustomsAuthorization() As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
Get
|
|
Return Me._customsAuthorization
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)
|
|
Me._customsAuthorization = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property LocalReferenceNumber() As String
|
|
Get
|
|
Return Me._localReferenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._localReferenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("GoodsItem")> _
|
|
Public Property GoodsItem() As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
Get
|
|
Return Me._goodsItem
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem))
|
|
Me._goodsItem = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouse))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouse object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouse object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouse 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 DEXPDDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouse)
|
|
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 DEXPDDGoodsItemCustomsWarehouse) 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 DEXPDDGoodsItemCustomsWarehouse
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouse)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouse
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouse)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouse 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouse object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouse 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 DEXPDDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouse)
|
|
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 DEXPDDGoodsItemCustomsWarehouse) 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 DEXPDDGoodsItemCustomsWarehouse
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
|
|
#Region "Private fields"
|
|
Private _warehouseOwner As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property WarehouseOwner() As String
|
|
Get
|
|
Return Me._warehouseOwner
|
|
End Get
|
|
Set(value As String)
|
|
Me._warehouseOwner = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)
|
|
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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)
|
|
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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItem
|
|
|
|
#Region "Private fields"
|
|
Private _sequenceNumber As String
|
|
|
|
Private _referencedSequenceNumber As String
|
|
|
|
Private _registrationNumber As String
|
|
|
|
Private _commodityCode As String
|
|
|
|
Private _accessViaAtlasFlag As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag
|
|
|
|
Private _usualProcessingFlag As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag
|
|
|
|
Private _complement As String
|
|
|
|
Private _debitAmount As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
|
|
Private _commercialAmount As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._commercialAmount = New DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount()
|
|
Me._debitAmount = New DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property SequenceNumber() As String
|
|
Get
|
|
Return Me._sequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._sequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property ReferencedSequenceNumber() As String
|
|
Get
|
|
Return Me._referencedSequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referencedSequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property RegistrationNumber() As String
|
|
Get
|
|
Return Me._registrationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._registrationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property CommodityCode() As String
|
|
Get
|
|
Return Me._commodityCode
|
|
End Get
|
|
Set(value As String)
|
|
Me._commodityCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AccessViaAtlasFlag() As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag
|
|
Get
|
|
Return Me._accessViaAtlasFlag
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag)
|
|
Me._accessViaAtlasFlag = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UsualProcessingFlag() As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag
|
|
Get
|
|
Return Me._usualProcessingFlag
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag)
|
|
Me._usualProcessingFlag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Complement() As String
|
|
Get
|
|
Return Me._complement
|
|
End Get
|
|
Set(value As String)
|
|
Me._complement = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DebitAmount() As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
Get
|
|
Return Me._debitAmount
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)
|
|
Me._debitAmount = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CommercialAmount() As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
Get
|
|
Return Me._commercialAmount
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)
|
|
Me._commercialAmount = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItem))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItem object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItem object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItem 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItem) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItem
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItem 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItem object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItem 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItem)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItem) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
|
|
#Region "Private fields"
|
|
Private _qualifier As String
|
|
|
|
Private _measurementUnit As String
|
|
|
|
Private _quantity As Decimal
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me._qualifier
|
|
End Get
|
|
Set(value As String)
|
|
Me._qualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MeasurementUnit() As String
|
|
Get
|
|
Return Me._measurementUnit
|
|
End Get
|
|
Set(value As String)
|
|
Me._measurementUnit = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Quantity() As Decimal
|
|
Get
|
|
Return Me._quantity
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._quantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
|
|
#Region "Private fields"
|
|
Private _qualifier As String
|
|
|
|
Private _measurementUnit As String
|
|
|
|
Private _quantity As Decimal
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me._qualifier
|
|
End Get
|
|
Set(value As String)
|
|
Me._qualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property MeasurementUnit() As String
|
|
Get
|
|
Return Me._measurementUnit
|
|
End Get
|
|
Set(value As String)
|
|
Me._measurementUnit = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Quantity() As Decimal
|
|
Get
|
|
Return Me._quantity
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._quantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)
|
|
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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemInwardProcessingTransformation
|
|
|
|
#Region "Private fields"
|
|
Private _goodsItemQuantity As String
|
|
|
|
Private _customsAuthorization As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
|
|
Private _goodsItem As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._goodsItem = New List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)()
|
|
Me._customsAuthorization = New DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property GoodsItemQuantity() As String
|
|
Get
|
|
Return Me._goodsItemQuantity
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsItemQuantity = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CustomsAuthorization() As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
Get
|
|
Return Me._customsAuthorization
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)
|
|
Me._customsAuthorization = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute("GoodsItem")> _
|
|
Public Property GoodsItem() As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
Get
|
|
Return Me._goodsItem
|
|
End Get
|
|
Set(value As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem))
|
|
Me._goodsItem = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformation))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformation object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformation object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformation 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 DEXPDDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformation)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformation) 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 DEXPDDGoodsItemInwardProcessingTransformation
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformation)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformation
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformation)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformation 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformation object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformation 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 DEXPDDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformation)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformation) 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 DEXPDDGoodsItemInwardProcessingTransformation
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
|
|
#Region "Private fields"
|
|
Private _processingOwner As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property ProcessingOwner() As String
|
|
Get
|
|
Return Me._processingOwner
|
|
End Get
|
|
Set(value As String)
|
|
Me._processingOwner = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Partial Public Class DEXPDDGoodsItemInwardProcessingTransformationGoodsItem
|
|
|
|
#Region "Private fields"
|
|
Private _sequenceNumber As String
|
|
|
|
Private _referencedSequenceNumber As String
|
|
|
|
Private _registrationNumber As String
|
|
|
|
Private _accessViaAtlasFlag As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag
|
|
|
|
Private _goodsRelatedInformation As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property SequenceNumber() As String
|
|
Get
|
|
Return Me._sequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._sequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="integer")> _
|
|
Public Property ReferencedSequenceNumber() As String
|
|
Get
|
|
Return Me._referencedSequenceNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._referencedSequenceNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property RegistrationNumber() As String
|
|
Get
|
|
Return Me._registrationNumber
|
|
End Get
|
|
Set(value As String)
|
|
Me._registrationNumber = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AccessViaAtlasFlag() As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag
|
|
Get
|
|
Return Me._accessViaAtlasFlag
|
|
End Get
|
|
Set(value As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag)
|
|
Me._accessViaAtlasFlag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlElementAttribute(DataType:="token")> _
|
|
Public Property GoodsRelatedInformation() As String
|
|
Get
|
|
Return Me._goodsRelatedInformation
|
|
End Get
|
|
Set(value As String)
|
|
Me._goodsRelatedInformation = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformationGoodsItem))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformationGoodsItem 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem
|
|
Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationGoodsItem 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output DEXPDDGoodsItemInwardProcessingTransformationGoodsItem 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)
|
|
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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
|
|
Public Enum DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("0")> _
|
|
Item0
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
|
Item1
|
|
End Enum
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=True)> _
|
|
Partial Public Class [decimal]
|
|
|
|
#Region "Private fields"
|
|
Private _anyAttr As List(Of System.Xml.XmlAttribute)
|
|
|
|
Private _value As Decimal
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._anyAttr = New List(Of System.Xml.XmlAttribute)()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlAnyAttributeAttribute()> _
|
|
Public Property AnyAttr() As List(Of System.Xml.XmlAttribute)
|
|
Get
|
|
Return Me._anyAttr
|
|
End Get
|
|
Set(value As List(Of System.Xml.XmlAttribute))
|
|
Me._anyAttr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlTextAttribute()> _
|
|
Public Property Value() As Decimal
|
|
Get
|
|
Return Me._value
|
|
End Get
|
|
Set(value As Decimal)
|
|
Me._value = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal]))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current decimal object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an decimal object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output decimal 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 [decimal], ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, [decimal])
|
|
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 [decimal]) 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 [decimal]
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal])
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal]
|
|
Return CType(Serializer.Deserialize(s), [decimal])
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current decimal 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an decimal object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output decimal 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 [decimal], ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, [decimal])
|
|
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 [decimal]) 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 [decimal]
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=True)> _
|
|
Partial Public Class [integer]
|
|
|
|
#Region "Private fields"
|
|
Private _anyAttr As List(Of System.Xml.XmlAttribute)
|
|
|
|
Private _value As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._anyAttr = New List(Of System.Xml.XmlAttribute)()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlAnyAttributeAttribute()> _
|
|
Public Property AnyAttr() As List(Of System.Xml.XmlAttribute)
|
|
Get
|
|
Return Me._anyAttr
|
|
End Get
|
|
Set(value As List(Of System.Xml.XmlAttribute))
|
|
Me._anyAttr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlTextAttribute(DataType:="integer")> _
|
|
Public Property Value() As String
|
|
Get
|
|
Return Me._value
|
|
End Get
|
|
Set(value As String)
|
|
Me._value = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer]))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current integer object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an integer object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output integer 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 [integer], ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, [integer])
|
|
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 [integer]) 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 [integer]
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer])
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer]
|
|
Return CType(Serializer.Deserialize(s), [integer])
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current integer 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an integer object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output integer 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 [integer], ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, [integer])
|
|
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 [integer]) 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 [integer]
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=True)> _
|
|
Partial Public Class token
|
|
|
|
#Region "Private fields"
|
|
Private _anyAttr As List(Of System.Xml.XmlAttribute)
|
|
|
|
Private _value As String
|
|
|
|
Private Shared sSerializer As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Me._anyAttr = New List(Of System.Xml.XmlAttribute)()
|
|
End Sub
|
|
|
|
<System.Xml.Serialization.XmlAnyAttributeAttribute()> _
|
|
Public Property AnyAttr() As List(Of System.Xml.XmlAttribute)
|
|
Get
|
|
Return Me._anyAttr
|
|
End Get
|
|
Set(value As List(Of System.Xml.XmlAttribute))
|
|
Me._anyAttr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlTextAttribute(DataType:="token")> _
|
|
Public Property Value() As String
|
|
Get
|
|
Return Me._value
|
|
End Get
|
|
Set(value As String)
|
|
Me._value = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serializes current token object into an XML string
|
|
''' </summary>
|
|
''' <returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings)
|
|
Serializer.Serialize(xmlWriter, Me)
|
|
memoryStream.Seek(0, SeekOrigin.Begin)
|
|
streamReader = New System.IO.StreamReader(memoryStream)
|
|
Return streamReader.ReadToEnd
|
|
Finally
|
|
If (Not (streamReader) Is Nothing) Then
|
|
streamReader.Dispose()
|
|
End If
|
|
If (Not (memoryStream) Is Nothing) Then
|
|
memoryStream.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Deserializes workflow markup into an token object
|
|
''' </summary>
|
|
''' <param name="input">string workflow markup to deserialize</param>
|
|
''' <param name="obj">Output token 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 token, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, token)
|
|
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 token) 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 token
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(input)
|
|
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token
|
|
Return CType(Serializer.Deserialize(s), token)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current token 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
streamWriter.Close()
|
|
Finally
|
|
If (Not (streamWriter) Is Nothing) Then
|
|
streamWriter.Dispose()
|
|
End If
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Deserializes xml markup from file into an token object
|
|
''' </summary>
|
|
''' <param name="fileName">string xml file to load and deserialize</param>
|
|
''' <param name="obj">Output token 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 token, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, token)
|
|
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 token) 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 token
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
Finally
|
|
If (Not (file) Is Nothing) Then
|
|
file.Dispose()
|
|
End If
|
|
If (Not (sr) Is Nothing) Then
|
|
sr.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
End Namespace
|