'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) '' MIC_IMPORTListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet40SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue '' '' ------------------------------------------------------------------------------ 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.Collections.Generic Namespace MIC_IMPORT Partial Public Class ImportShipment Private shipmentField As TShipment Private invoiceField As List(Of TInvoice) Private schemaVersionField As Decimal Private schemaVersionFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.invoiceField = New List(Of TInvoice)() Me.shipmentField = New TShipment() End Sub Public Property Shipment() As TShipment Get Return Me.shipmentField End Get Set Me.shipmentField = Value End Set End Property Public Property Invoice() As List(Of TInvoice) Get Return Me.invoiceField End Get Set Me.invoiceField = Value End Set End Property Public Property schemaVersion() As Decimal Get Return Me.schemaVersionField End Get Set Me.schemaVersionField = Value End Set End Property Public Property schemaVersionSpecified() As Boolean Get Return Me.schemaVersionFieldSpecified End Get Set Me.schemaVersionFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ImportShipment)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ImportShipment object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an ImportShipment object ''' '''string workflow markup to deserialize '''Output ImportShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ImportShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ImportShipment) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ImportShipment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As ImportShipment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ImportShipment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current ImportShipment object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an ImportShipment object ''' '''string xml file to load and deserialize '''Output ImportShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ImportShipment) 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 ImportShipment) 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 ImportShipment 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 Region End Class Partial Public Class TShipment Private companyField As String Private plantField As String Private shipmentIdField As String Private shipmentPartialField As String Private shipmentVersionField As String Private documentNumberField As Decimal Private shipmentHeadField As TShipmentHead Private containersField As List(Of TDetailContainerInfo) Private documentsField As List(Of TDocument) Private attributesField As List(Of TAttribute) Private partnersField As List(Of TPartner) Private previousDocumentsField As List(Of TPrevDoc) Private atlasCompletionSumDsField As List(Of TAtlasCompSumDEntry) Private additionalInformationField As List(Of TAttribute) Private authorisationHoldersField As TAuthHolders Private defermentAccountsField As TDeferAccs Private guaranteesField As TGuarantees Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.guaranteesField = New TGuarantees() Me.defermentAccountsField = New TDeferAccs() Me.authorisationHoldersField = New TAuthHolders() Me.additionalInformationField = New List(Of TAttribute)() Me.atlasCompletionSumDsField = New List(Of TAtlasCompSumDEntry)() Me.previousDocumentsField = New List(Of TPrevDoc)() Me.partnersField = New List(Of TPartner)() Me.attributesField = New List(Of TAttribute)() Me.documentsField = New List(Of TDocument)() Me.containersField = New List(Of TDetailContainerInfo)() Me.shipmentHeadField = New TShipmentHead() Me.shipmentVersionField = "1" Me.documentNumberField = CType(1D, Decimal) End Sub Public Property company() As String Get Return Me.companyField End Get Set Me.companyField = Value End Set End Property Public Property plant() As String Get Return Me.plantField End Get Set Me.plantField = Value End Set End Property Public Property shipmentId() As String Get Return Me.shipmentIdField End Get Set Me.shipmentIdField = Value End Set End Property Public Property shipmentPartial() As String Get Return Me.shipmentPartialField End Get Set Me.shipmentPartialField = Value End Set End Property Public Property shipmentVersion() As String Get Return Me.shipmentVersionField End Get Set Me.shipmentVersionField = Value End Set End Property Public Property documentNumber() As Decimal Get Return Me.documentNumberField End Get Set Me.documentNumberField = Value End Set End Property Public Property ShipmentHead() As TShipmentHead Get Return Me.shipmentHeadField End Get Set Me.shipmentHeadField = Value End Set End Property Public Property Containers() As List(Of TDetailContainerInfo) Get Return Me.containersField End Get Set Me.containersField = Value End Set End Property Public Property Documents() As List(Of TDocument) Get Return Me.documentsField End Get Set Me.documentsField = Value End Set End Property Public Property Attributes() As List(Of TAttribute) Get Return Me.attributesField End Get Set Me.attributesField = Value End Set End Property Public Property Partners() As List(Of TPartner) Get Return Me.partnersField End Get Set Me.partnersField = Value End Set End Property Public Property PreviousDocuments() As List(Of TPrevDoc) Get Return Me.previousDocumentsField End Get Set Me.previousDocumentsField = Value End Set End Property Public Property AtlasCompletionSumDs() As List(Of TAtlasCompSumDEntry) Get Return Me.atlasCompletionSumDsField End Get Set Me.atlasCompletionSumDsField = Value End Set End Property Public Property AdditionalInformation() As List(Of TAttribute) Get Return Me.additionalInformationField End Get Set Me.additionalInformationField = Value End Set End Property Public Property AuthorisationHolders() As TAuthHolders Get Return Me.authorisationHoldersField End Get Set Me.authorisationHoldersField = Value End Set End Property Public Property DefermentAccounts() As TDeferAccs Get Return Me.defermentAccountsField End Get Set Me.defermentAccountsField = Value End Set End Property Public Property Guarantees() As TGuarantees Get Return Me.guaranteesField End Get Set Me.guaranteesField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TShipment)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TShipment object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TShipment object ''' '''string workflow markup to deserialize '''Output TShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TShipment) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TShipment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TShipment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TShipment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TShipment object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TShipment object ''' '''string xml file to load and deserialize '''Output TShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TShipment) 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 TShipment) 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 TShipment 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 Region End Class Partial Public Class TShipmentHead Private shipmentTypeField As TShipmentHeadShipmentType Private customsDateField As Date Private customsDateFieldSpecified As Boolean Private declTypeField As TDeclType Private mrnField As String Private grossWeightField As Decimal Private grossWeightFieldSpecified As Boolean Private departurePlaceField As String Private dispatchCountryField As String Private lastDispatchCountryField As String Private destinationPlaceField As String Private destinationRegionField As String Private officeEntryField As String Private importStateField As String Private substituteFlagField As String Private typeOfImportField As String Private authorizationNumberField As String Private placeOfDispatchDescriptionField As String Private typeOfAirTransportationField As String Private motBorderField As TMot Private motBorderCrossingField As TMot Private motInlandField As TMot Private containerIndicatorField As String Private containerField As TContainer Private freightField As TFreightCosts Private insuranceField As TInsuranceCosts Private additionalCostsField As List(Of TAddCosts) Private additionalCostVATField As Decimal Private additionalCostVATFieldSpecified As Boolean Private textField As String Private exportDateField As Date Private exportDateFieldSpecified As Boolean Private importDateField As Date Private importDateFieldSpecified As Boolean Private estArrivalDateField As Date Private estArrivalDateFieldSpecified As Boolean Private partyConstField As String Private periodField As String Private customerFieldsField As TCustomerFields Private countryDestinationField As String Private clearenceTypeField As String Private previousDocTypeField As String Private previousDocNumberField As String Private customsOfficeOfDestinationField As String Private carrierNumberField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private supervisingOfficeField As String Private typeIdentificationOfTransportArrivalField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.customerFieldsField = New TCustomerFields() Me.additionalCostsField = New List(Of TAddCosts)() Me.insuranceField = New TInsuranceCosts() Me.freightField = New TFreightCosts() Me.containerField = New TContainer() Me.motInlandField = New TMot() Me.motBorderCrossingField = New TMot() Me.motBorderField = New TMot() Me.declTypeField = New TDeclType() Me.shipmentTypeField = TShipmentHeadShipmentType.E Me.containerIndicatorField = "0" End Sub Public Property shipmentType() As TShipmentHeadShipmentType Get Return Me.shipmentTypeField End Get Set Me.shipmentTypeField = Value End Set End Property Public Property customsDate() As Date Get Return Me.customsDateField End Get Set Me.customsDateField = Value End Set End Property Public Property customsDateSpecified() As Boolean Get Return Me.customsDateFieldSpecified End Get Set Me.customsDateFieldSpecified = Value End Set End Property Public Property declType() As TDeclType Get Return Me.declTypeField End Get Set Me.declTypeField = Value End Set End Property Public Property mrn() As String Get Return Me.mrnField End Get Set Me.mrnField = Value End Set End Property Public Property grossWeight() As Decimal Get Return Me.grossWeightField End Get Set Me.grossWeightField = Value End Set End Property Public Property grossWeightSpecified() As Boolean Get Return Me.grossWeightFieldSpecified End Get Set Me.grossWeightFieldSpecified = Value End Set End Property Public Property departurePlace() As String Get Return Me.departurePlaceField End Get Set Me.departurePlaceField = Value End Set End Property Public Property dispatchCountry() As String Get Return Me.dispatchCountryField End Get Set Me.dispatchCountryField = Value End Set End Property Public Property lastDispatchCountry() As String Get Return Me.lastDispatchCountryField End Get Set Me.lastDispatchCountryField = Value End Set End Property Public Property destinationPlace() As String Get Return Me.destinationPlaceField End Get Set Me.destinationPlaceField = Value End Set End Property Public Property destinationRegion() As String Get Return Me.destinationRegionField End Get Set Me.destinationRegionField = Value End Set End Property Public Property officeEntry() As String Get Return Me.officeEntryField End Get Set Me.officeEntryField = Value End Set End Property Public Property importState() As String Get Return Me.importStateField End Get Set Me.importStateField = Value End Set End Property Public Property substituteFlag() As String Get Return Me.substituteFlagField End Get Set Me.substituteFlagField = Value End Set End Property Public Property typeOfImport() As String Get Return Me.typeOfImportField End Get Set Me.typeOfImportField = Value End Set End Property Public Property authorizationNumber() As String Get Return Me.authorizationNumberField End Get Set Me.authorizationNumberField = Value End Set End Property Public Property placeOfDispatchDescription() As String Get Return Me.placeOfDispatchDescriptionField End Get Set Me.placeOfDispatchDescriptionField = Value End Set End Property Public Property typeOfAirTransportation() As String Get Return Me.typeOfAirTransportationField End Get Set Me.typeOfAirTransportationField = Value End Set End Property Public Property MotBorder() As TMot Get Return Me.motBorderField End Get Set Me.motBorderField = Value End Set End Property Public Property MotBorderCrossing() As TMot Get Return Me.motBorderCrossingField End Get Set Me.motBorderCrossingField = Value End Set End Property Public Property MotInland() As TMot Get Return Me.motInlandField End Get Set Me.motInlandField = Value End Set End Property Public Property containerIndicator() As String Get Return Me.containerIndicatorField End Get Set Me.containerIndicatorField = Value End Set End Property Public Property Container() As TContainer Get Return Me.containerField End Get Set Me.containerField = Value End Set End Property Public Property Freight() As TFreightCosts Get Return Me.freightField End Get Set Me.freightField = Value End Set End Property Public Property Insurance() As TInsuranceCosts Get Return Me.insuranceField End Get Set Me.insuranceField = Value End Set End Property Public Property AdditionalCosts() As List(Of TAddCosts) Get Return Me.additionalCostsField End Get Set Me.additionalCostsField = Value End Set End Property Public Property additionalCostVAT() As Decimal Get Return Me.additionalCostVATField End Get Set Me.additionalCostVATField = Value End Set End Property Public Property additionalCostVATSpecified() As Boolean Get Return Me.additionalCostVATFieldSpecified End Get Set Me.additionalCostVATFieldSpecified = Value End Set End Property Public Property text() As String Get Return Me.textField End Get Set Me.textField = Value End Set End Property Public Property exportDate() As Date Get Return Me.exportDateField End Get Set Me.exportDateField = Value End Set End Property Public Property exportDateSpecified() As Boolean Get Return Me.exportDateFieldSpecified End Get Set Me.exportDateFieldSpecified = Value End Set End Property Public Property importDate() As Date Get Return Me.importDateField End Get Set Me.importDateField = Value End Set End Property Public Property importDateSpecified() As Boolean Get Return Me.importDateFieldSpecified End Get Set Me.importDateFieldSpecified = Value End Set End Property Public Property estArrivalDate() As Date Get Return Me.estArrivalDateField End Get Set Me.estArrivalDateField = Value End Set End Property Public Property estArrivalDateSpecified() As Boolean Get Return Me.estArrivalDateFieldSpecified End Get Set Me.estArrivalDateFieldSpecified = Value End Set End Property Public Property partyConst() As String Get Return Me.partyConstField End Get Set Me.partyConstField = Value End Set End Property Public Property period() As String Get Return Me.periodField End Get Set Me.periodField = Value End Set End Property Public Property CustomerFields() As TCustomerFields Get Return Me.customerFieldsField End Get Set Me.customerFieldsField = Value End Set End Property Public Property countryDestination() As String Get Return Me.countryDestinationField End Get Set Me.countryDestinationField = Value End Set End Property Public Property clearenceType() As String Get Return Me.clearenceTypeField End Get Set Me.clearenceTypeField = Value End Set End Property Public Property previousDocType() As String Get Return Me.previousDocTypeField End Get Set Me.previousDocTypeField = Value End Set End Property Public Property previousDocNumber() As String Get Return Me.previousDocNumberField End Get Set Me.previousDocNumberField = Value End Set End Property Public Property customsOfficeOfDestination() As String Get Return Me.customsOfficeOfDestinationField End Get Set Me.customsOfficeOfDestinationField = Value End Set End Property Public Property carrierNumber() As String Get Return Me.carrierNumberField End Get Set Me.carrierNumberField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Public Property supervisingOffice() As String Get Return Me.supervisingOfficeField End Get Set Me.supervisingOfficeField = Value End Set End Property Public Property typeIdentificationOfTransportArrival() As String Get Return Me.typeIdentificationOfTransportArrivalField End Get Set Me.typeIdentificationOfTransportArrivalField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TShipmentHead)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TShipmentHead object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TShipmentHead object ''' '''string workflow markup to deserialize '''Output TShipmentHead object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TShipmentHead, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TShipmentHead) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TShipmentHead) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TShipmentHead Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TShipmentHead) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TShipmentHead object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TShipmentHead object ''' '''string xml file to load and deserialize '''Output TShipmentHead object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHead, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TShipmentHead) 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 TShipmentHead) 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 TShipmentHead 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 Region End Class Public Enum TShipmentHeadShipmentType ''' E ''' B ''' U ''' X ''' I End Enum Partial Public Class TDeclType Private type1Field As String Private type2Field As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property type1() As String Get Return Me.type1Field End Get Set Me.type1Field = Value End Set End Property Public Property type2() As String Get Return Me.type2Field End Get Set Me.type2Field = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDeclType)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDeclType object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDeclType object ''' '''string workflow markup to deserialize '''Output TDeclType object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeclType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeclType) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeclType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDeclType Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDeclType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDeclType object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDeclType object ''' '''string xml file to load and deserialize '''Output TDeclType object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDeclType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeclType) 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 TDeclType) 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 TDeclType 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 Region End Class Partial Public Class TPackageData Private signoField As String Private numberOfPackagesField As Long Private numberOfPackagesFieldSpecified As Boolean Private packageTypeField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property signo() As String Get Return Me.signoField End Get Set Me.signoField = Value End Set End Property Public Property numberOfPackages() As Long Get Return Me.numberOfPackagesField End Get Set Me.numberOfPackagesField = Value End Set End Property Public Property numberOfPackagesSpecified() As Boolean Get Return Me.numberOfPackagesFieldSpecified End Get Set Me.numberOfPackagesFieldSpecified = Value End Set End Property Public Property packageType() As String Get Return Me.packageTypeField End Get Set Me.packageTypeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPackageData)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPackageData object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPackageData object ''' '''string workflow markup to deserialize '''Output TPackageData object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackageData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackageData) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackageData) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPackageData Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPackageData) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPackageData object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPackageData object ''' '''string xml file to load and deserialize '''Output TPackageData object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPackageData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackageData) 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 TPackageData) 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 TPackageData 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 Region End Class Partial Public Class TPackagesData Private packageDataField As List(Of TPackageData) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.packageDataField = New List(Of TPackageData)() End Sub Public Property PackageData() As List(Of TPackageData) Get Return Me.packageDataField End Get Set Me.packageDataField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPackagesData)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPackagesData object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPackagesData object ''' '''string workflow markup to deserialize '''Output TPackagesData object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackagesData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackagesData) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackagesData) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPackagesData Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPackagesData) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPackagesData object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPackagesData object ''' '''string xml file to load and deserialize '''Output TPackagesData object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPackagesData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackagesData) 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 TPackagesData) 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 TPackagesData 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 Region End Class Partial Public Class TRefPrevProcedure Private referenceTypeField As String Private referenceNumberField As String Private authorisationNumberField As String Private registrationNumberField As String Private positionNumberField As Long Private positionNumberFieldSpecified As Boolean Private partNumberField As String Private tariffNumberField As String Private tradeQuantityField As Decimal Private tradeQuantityFieldSpecified As Boolean Private tradeUnitOfMeasurementField As String Private tradeQualifierField As String Private deductionQuantityField As Decimal Private deductionQuantityFieldSpecified As Boolean Private deductionUnitOfMeasurementField As String Private deductionQualifierField As String Private additionalInformationField As String Private normalTreatmentFlagField As Boolean Private normalTreatmentFlagFieldSpecified As Boolean Private atlasFlagField As Boolean Private atlasFlagFieldSpecified As Boolean Private customsNumberField As String Private statisticalQuantityField As Decimal Private statisticalQuantityFieldSpecified As Boolean Private netMassField As Decimal Private netMassFieldSpecified As Boolean Private grossMassField As Decimal Private grossMassFieldSpecified As Boolean Private packageQuantityField As Decimal Private packageQuantityFieldSpecified As Boolean Private simpleIprApplicationField As Boolean Private simpleIprApplicationFieldSpecified As Boolean Private supervisingOfficeField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property referenceType() As String Get Return Me.referenceTypeField End Get Set Me.referenceTypeField = Value End Set End Property Public Property referenceNumber() As String Get Return Me.referenceNumberField End Get Set Me.referenceNumberField = Value End Set End Property Public Property authorisationNumber() As String Get Return Me.authorisationNumberField End Get Set Me.authorisationNumberField = Value End Set End Property Public Property registrationNumber() As String Get Return Me.registrationNumberField End Get Set Me.registrationNumberField = Value End Set End Property Public Property positionNumber() As Long Get Return Me.positionNumberField End Get Set Me.positionNumberField = Value End Set End Property Public Property positionNumberSpecified() As Boolean Get Return Me.positionNumberFieldSpecified End Get Set Me.positionNumberFieldSpecified = Value End Set End Property Public Property partNumber() As String Get Return Me.partNumberField End Get Set Me.partNumberField = Value End Set End Property Public Property tariffNumber() As String Get Return Me.tariffNumberField End Get Set Me.tariffNumberField = Value End Set End Property Public Property tradeQuantity() As Decimal Get Return Me.tradeQuantityField End Get Set Me.tradeQuantityField = Value End Set End Property Public Property tradeQuantitySpecified() As Boolean Get Return Me.tradeQuantityFieldSpecified End Get Set Me.tradeQuantityFieldSpecified = Value End Set End Property Public Property tradeUnitOfMeasurement() As String Get Return Me.tradeUnitOfMeasurementField End Get Set Me.tradeUnitOfMeasurementField = Value End Set End Property Public Property tradeQualifier() As String Get Return Me.tradeQualifierField End Get Set Me.tradeQualifierField = Value End Set End Property Public Property deductionQuantity() As Decimal Get Return Me.deductionQuantityField End Get Set Me.deductionQuantityField = Value End Set End Property Public Property deductionQuantitySpecified() As Boolean Get Return Me.deductionQuantityFieldSpecified End Get Set Me.deductionQuantityFieldSpecified = Value End Set End Property Public Property deductionUnitOfMeasurement() As String Get Return Me.deductionUnitOfMeasurementField End Get Set Me.deductionUnitOfMeasurementField = Value End Set End Property Public Property deductionQualifier() As String Get Return Me.deductionQualifierField End Get Set Me.deductionQualifierField = Value End Set End Property Public Property additionalInformation() As String Get Return Me.additionalInformationField End Get Set Me.additionalInformationField = Value End Set End Property Public Property normalTreatmentFlag() As Boolean Get Return Me.normalTreatmentFlagField End Get Set Me.normalTreatmentFlagField = Value End Set End Property Public Property normalTreatmentFlagSpecified() As Boolean Get Return Me.normalTreatmentFlagFieldSpecified End Get Set Me.normalTreatmentFlagFieldSpecified = Value End Set End Property Public Property atlasFlag() As Boolean Get Return Me.atlasFlagField End Get Set Me.atlasFlagField = Value End Set End Property Public Property atlasFlagSpecified() As Boolean Get Return Me.atlasFlagFieldSpecified End Get Set Me.atlasFlagFieldSpecified = Value End Set End Property Public Property customsNumber() As String Get Return Me.customsNumberField End Get Set Me.customsNumberField = Value End Set End Property Public Property statisticalQuantity() As Decimal Get Return Me.statisticalQuantityField End Get Set Me.statisticalQuantityField = Value End Set End Property Public Property statisticalQuantitySpecified() As Boolean Get Return Me.statisticalQuantityFieldSpecified End Get Set Me.statisticalQuantityFieldSpecified = Value End Set End Property Public Property netMass() As Decimal Get Return Me.netMassField End Get Set Me.netMassField = Value End Set End Property Public Property netMassSpecified() As Boolean Get Return Me.netMassFieldSpecified End Get Set Me.netMassFieldSpecified = Value End Set End Property Public Property grossMass() As Decimal Get Return Me.grossMassField End Get Set Me.grossMassField = Value End Set End Property Public Property grossMassSpecified() As Boolean Get Return Me.grossMassFieldSpecified End Get Set Me.grossMassFieldSpecified = Value End Set End Property Public Property packageQuantity() As Decimal Get Return Me.packageQuantityField End Get Set Me.packageQuantityField = Value End Set End Property Public Property packageQuantitySpecified() As Boolean Get Return Me.packageQuantityFieldSpecified End Get Set Me.packageQuantityFieldSpecified = Value End Set End Property Public Property simpleIprApplication() As Boolean Get Return Me.simpleIprApplicationField End Get Set Me.simpleIprApplicationField = Value End Set End Property Public Property simpleIprApplicationSpecified() As Boolean Get Return Me.simpleIprApplicationFieldSpecified End Get Set Me.simpleIprApplicationFieldSpecified = Value End Set End Property Public Property supervisingOffice() As String Get Return Me.supervisingOfficeField End Get Set Me.supervisingOfficeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TRefPrevProcedure)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TRefPrevProcedure object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TRefPrevProcedure object ''' '''string workflow markup to deserialize '''Output TRefPrevProcedure object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRefPrevProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRefPrevProcedure) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRefPrevProcedure) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TRefPrevProcedure Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TRefPrevProcedure) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TRefPrevProcedure object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TRefPrevProcedure object ''' '''string xml file to load and deserialize '''Output TRefPrevProcedure object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRefPrevProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRefPrevProcedure) 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 TRefPrevProcedure) 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 TRefPrevProcedure 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 Region End Class Partial Public Class TPreSupplier Private infDutyValueField As Decimal Private infDutyValueFieldSpecified As Boolean Private infDutyRateField As Decimal Private infDutyRateFieldSpecified As Boolean Private infDutyField As Decimal Private infDutyFieldSpecified As Boolean Private infDutyCurrencyField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property infDutyValue() As Decimal Get Return Me.infDutyValueField End Get Set Me.infDutyValueField = Value End Set End Property Public Property infDutyValueSpecified() As Boolean Get Return Me.infDutyValueFieldSpecified End Get Set Me.infDutyValueFieldSpecified = Value End Set End Property Public Property infDutyRate() As Decimal Get Return Me.infDutyRateField End Get Set Me.infDutyRateField = Value End Set End Property Public Property infDutyRateSpecified() As Boolean Get Return Me.infDutyRateFieldSpecified End Get Set Me.infDutyRateFieldSpecified = Value End Set End Property Public Property infDuty() As Decimal Get Return Me.infDutyField End Get Set Me.infDutyField = Value End Set End Property Public Property infDutySpecified() As Boolean Get Return Me.infDutyFieldSpecified End Get Set Me.infDutyFieldSpecified = Value End Set End Property Public Property infDutyCurrency() As String Get Return Me.infDutyCurrencyField End Get Set Me.infDutyCurrencyField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPreSupplier)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPreSupplier object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPreSupplier object ''' '''string workflow markup to deserialize '''Output TPreSupplier object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPreSupplier, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPreSupplier) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPreSupplier) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPreSupplier Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPreSupplier) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPreSupplier object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPreSupplier object ''' '''string xml file to load and deserialize '''Output TPreSupplier object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPreSupplier, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPreSupplier) 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 TPreSupplier) 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 TPreSupplier 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 Region End Class Partial Public Class TCustIntraLine Private statusField As String Private invoiceDateField As Date Private invoiceDateFieldSpecified As Boolean Private periodField As Long Private periodFieldSpecified As Boolean Private regionField As String Private statisticalProcedureField As String Private statisticalValueField As Decimal Private statisticalValueFieldSpecified As Boolean Private additionalCostsCurrency1Field As String Private additionalCostsType1Field As String Private additionalCostsCurrency2Field As String Private additionalCostsType2Field As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property status() As String Get Return Me.statusField End Get Set Me.statusField = Value End Set End Property Public Property invoiceDate() As Date Get Return Me.invoiceDateField End Get Set Me.invoiceDateField = Value End Set End Property Public Property invoiceDateSpecified() As Boolean Get Return Me.invoiceDateFieldSpecified End Get Set Me.invoiceDateFieldSpecified = Value End Set End Property Public Property period() As Long Get Return Me.periodField End Get Set Me.periodField = Value End Set End Property Public Property periodSpecified() As Boolean Get Return Me.periodFieldSpecified End Get Set Me.periodFieldSpecified = Value End Set End Property Public Property region() As String Get Return Me.regionField End Get Set Me.regionField = Value End Set End Property Public Property statisticalProcedure() As String Get Return Me.statisticalProcedureField End Get Set Me.statisticalProcedureField = Value End Set End Property Public Property statisticalValue() As Decimal Get Return Me.statisticalValueField End Get Set Me.statisticalValueField = Value End Set End Property Public Property statisticalValueSpecified() As Boolean Get Return Me.statisticalValueFieldSpecified End Get Set Me.statisticalValueFieldSpecified = Value End Set End Property Public Property additionalCostsCurrency1() As String Get Return Me.additionalCostsCurrency1Field End Get Set Me.additionalCostsCurrency1Field = Value End Set End Property Public Property additionalCostsType1() As String Get Return Me.additionalCostsType1Field End Get Set Me.additionalCostsType1Field = Value End Set End Property Public Property additionalCostsCurrency2() As String Get Return Me.additionalCostsCurrency2Field End Get Set Me.additionalCostsCurrency2Field = Value End Set End Property Public Property additionalCostsType2() As String Get Return Me.additionalCostsType2Field End Get Set Me.additionalCostsType2Field = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustIntraLine)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustIntraLine object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustIntraLine object ''' '''string workflow markup to deserialize '''Output TCustIntraLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustIntraLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustIntraLine) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustIntraLine) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustIntraLine Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustIntraLine) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustIntraLine object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustIntraLine object ''' '''string xml file to load and deserialize '''Output TCustIntraLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustIntraLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustIntraLine) 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 TCustIntraLine) 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 TCustIntraLine 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 Region End Class Partial Public Class TOprInfo Private dutyGroup1Field As String Private reductionAmount1Field As Decimal Private reductionAmount1FieldSpecified As Boolean Private dutyGroup2Field As String Private reductionAmount2Field As Decimal Private reductionAmount2FieldSpecified As Boolean Private dutyGroup3Field As String Private reductionAmount3Field As Decimal Private reductionAmount3FieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property dutyGroup1() As String Get Return Me.dutyGroup1Field End Get Set Me.dutyGroup1Field = Value End Set End Property Public Property reductionAmount1() As Decimal Get Return Me.reductionAmount1Field End Get Set Me.reductionAmount1Field = Value End Set End Property Public Property reductionAmount1Specified() As Boolean Get Return Me.reductionAmount1FieldSpecified End Get Set Me.reductionAmount1FieldSpecified = Value End Set End Property Public Property dutyGroup2() As String Get Return Me.dutyGroup2Field End Get Set Me.dutyGroup2Field = Value End Set End Property Public Property reductionAmount2() As Decimal Get Return Me.reductionAmount2Field End Get Set Me.reductionAmount2Field = Value End Set End Property Public Property reductionAmount2Specified() As Boolean Get Return Me.reductionAmount2FieldSpecified End Get Set Me.reductionAmount2FieldSpecified = Value End Set End Property Public Property dutyGroup3() As String Get Return Me.dutyGroup3Field End Get Set Me.dutyGroup3Field = Value End Set End Property Public Property reductionAmount3() As Decimal Get Return Me.reductionAmount3Field End Get Set Me.reductionAmount3Field = Value End Set End Property Public Property reductionAmount3Specified() As Boolean Get Return Me.reductionAmount3FieldSpecified End Get Set Me.reductionAmount3FieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TOprInfo)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TOprInfo object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TOprInfo object ''' '''string workflow markup to deserialize '''Output TOprInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TOprInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TOprInfo) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TOprInfo) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TOprInfo Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TOprInfo) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TOprInfo object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TOprInfo object ''' '''string xml file to load and deserialize '''Output TOprInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TOprInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TOprInfo) 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 TOprInfo) 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 TOprInfo 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 Region End Class Partial Public Class TDutySaving Private additionalCostsTypeField As String Private codeField As String Private calculatedCustDutiesField As Decimal Private calculatedCustDutiesFieldSpecified As Boolean Private amountField As Decimal Private amountFieldSpecified As Boolean Private creationFlagField As String Private unitOfMeasurmentField As String Private calculationBaseField As Decimal Private calculationBaseFieldSpecified As Boolean Private countryOfDutiesField As String Private calculatedDutiesField As Decimal Private calculatedDutiesFieldSpecified As Boolean Private calculatedAssessmentBasisField As Decimal Private calculatedAssessmentBasisFieldSpecified As Boolean Private measuresTypeField As String Private dutyRateField As Decimal Private dutyRateFieldSpecified As Boolean Private additionField As Decimal Private additionFieldSpecified As Boolean Private preferentialFlagField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property additionalCostsType() As String Get Return Me.additionalCostsTypeField End Get Set Me.additionalCostsTypeField = Value End Set End Property Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property calculatedCustDuties() As Decimal Get Return Me.calculatedCustDutiesField End Get Set Me.calculatedCustDutiesField = Value End Set End Property Public Property calculatedCustDutiesSpecified() As Boolean Get Return Me.calculatedCustDutiesFieldSpecified End Get Set Me.calculatedCustDutiesFieldSpecified = Value End Set End Property Public Property amount() As Decimal Get Return Me.amountField End Get Set Me.amountField = Value End Set End Property Public Property amountSpecified() As Boolean Get Return Me.amountFieldSpecified End Get Set Me.amountFieldSpecified = Value End Set End Property Public Property creationFlag() As String Get Return Me.creationFlagField End Get Set Me.creationFlagField = Value End Set End Property Public Property unitOfMeasurment() As String Get Return Me.unitOfMeasurmentField End Get Set Me.unitOfMeasurmentField = Value End Set End Property Public Property calculationBase() As Decimal Get Return Me.calculationBaseField End Get Set Me.calculationBaseField = Value End Set End Property Public Property calculationBaseSpecified() As Boolean Get Return Me.calculationBaseFieldSpecified End Get Set Me.calculationBaseFieldSpecified = Value End Set End Property Public Property countryOfDuties() As String Get Return Me.countryOfDutiesField End Get Set Me.countryOfDutiesField = Value End Set End Property Public Property calculatedDuties() As Decimal Get Return Me.calculatedDutiesField End Get Set Me.calculatedDutiesField = Value End Set End Property Public Property calculatedDutiesSpecified() As Boolean Get Return Me.calculatedDutiesFieldSpecified End Get Set Me.calculatedDutiesFieldSpecified = Value End Set End Property Public Property calculatedAssessmentBasis() As Decimal Get Return Me.calculatedAssessmentBasisField End Get Set Me.calculatedAssessmentBasisField = Value End Set End Property Public Property calculatedAssessmentBasisSpecified() As Boolean Get Return Me.calculatedAssessmentBasisFieldSpecified End Get Set Me.calculatedAssessmentBasisFieldSpecified = Value End Set End Property Public Property measuresType() As String Get Return Me.measuresTypeField End Get Set Me.measuresTypeField = Value End Set End Property Public Property dutyRate() As Decimal Get Return Me.dutyRateField End Get Set Me.dutyRateField = Value End Set End Property Public Property dutyRateSpecified() As Boolean Get Return Me.dutyRateFieldSpecified End Get Set Me.dutyRateFieldSpecified = Value End Set End Property Public Property addition() As Decimal Get Return Me.additionField End Get Set Me.additionField = Value End Set End Property Public Property additionSpecified() As Boolean Get Return Me.additionFieldSpecified End Get Set Me.additionFieldSpecified = Value End Set End Property Public Property preferentialFlag() As String Get Return Me.preferentialFlagField End Get Set Me.preferentialFlagField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDutySaving)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDutySaving object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDutySaving object ''' '''string workflow markup to deserialize '''Output TDutySaving object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDutySaving, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDutySaving) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDutySaving) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDutySaving Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDutySaving) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDutySaving object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDutySaving object ''' '''string xml file to load and deserialize '''Output TDutySaving object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDutySaving, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDutySaving) 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 TDutySaving) 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 TDutySaving 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 Region End Class Partial Public Class TDutyTax Private additionalCostsTypeField As String Private codeField As String Private calculatedCustDutiesField As Decimal Private calculatedCustDutiesFieldSpecified As Boolean Private amountField As Decimal Private amountFieldSpecified As Boolean Private creationFlagField As String Private unitOfMeasurmentField As String Private calculationBaseField As Decimal Private calculationBaseFieldSpecified As Boolean Private countryOfDutiesField As String Private calculatedDutiesField As Decimal Private calculatedDutiesFieldSpecified As Boolean Private calculatedAssessmentBasisField As Decimal Private calculatedAssessmentBasisFieldSpecified As Boolean Private areaCodeField As String Private measuresTypeField As String Private dutyCodeCustomsOfficeField As String Private indentureNumberField As String Private dutyRateField As Decimal Private dutyRateFieldSpecified As Boolean Private stornoFlagField As String Private dutyAmountIncreaseOrDecreaseField As Decimal Private dutyAmountIncreaseOrDecreaseFieldSpecified As Boolean Private typeOfAdditionalCodeField As String Private noOfAdditionalCodeField As String Private calculatedDutyRateField As Decimal Private calculatedDutyRateFieldSpecified As Boolean Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property additionalCostsType() As String Get Return Me.additionalCostsTypeField End Get Set Me.additionalCostsTypeField = Value End Set End Property Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property calculatedCustDuties() As Decimal Get Return Me.calculatedCustDutiesField End Get Set Me.calculatedCustDutiesField = Value End Set End Property Public Property calculatedCustDutiesSpecified() As Boolean Get Return Me.calculatedCustDutiesFieldSpecified End Get Set Me.calculatedCustDutiesFieldSpecified = Value End Set End Property Public Property amount() As Decimal Get Return Me.amountField End Get Set Me.amountField = Value End Set End Property Public Property amountSpecified() As Boolean Get Return Me.amountFieldSpecified End Get Set Me.amountFieldSpecified = Value End Set End Property Public Property creationFlag() As String Get Return Me.creationFlagField End Get Set Me.creationFlagField = Value End Set End Property Public Property unitOfMeasurment() As String Get Return Me.unitOfMeasurmentField End Get Set Me.unitOfMeasurmentField = Value End Set End Property Public Property calculationBase() As Decimal Get Return Me.calculationBaseField End Get Set Me.calculationBaseField = Value End Set End Property Public Property calculationBaseSpecified() As Boolean Get Return Me.calculationBaseFieldSpecified End Get Set Me.calculationBaseFieldSpecified = Value End Set End Property Public Property countryOfDuties() As String Get Return Me.countryOfDutiesField End Get Set Me.countryOfDutiesField = Value End Set End Property Public Property calculatedDuties() As Decimal Get Return Me.calculatedDutiesField End Get Set Me.calculatedDutiesField = Value End Set End Property Public Property calculatedDutiesSpecified() As Boolean Get Return Me.calculatedDutiesFieldSpecified End Get Set Me.calculatedDutiesFieldSpecified = Value End Set End Property Public Property calculatedAssessmentBasis() As Decimal Get Return Me.calculatedAssessmentBasisField End Get Set Me.calculatedAssessmentBasisField = Value End Set End Property Public Property calculatedAssessmentBasisSpecified() As Boolean Get Return Me.calculatedAssessmentBasisFieldSpecified End Get Set Me.calculatedAssessmentBasisFieldSpecified = Value End Set End Property Public Property areaCode() As String Get Return Me.areaCodeField End Get Set Me.areaCodeField = Value End Set End Property Public Property measuresType() As String Get Return Me.measuresTypeField End Get Set Me.measuresTypeField = Value End Set End Property Public Property dutyCodeCustomsOffice() As String Get Return Me.dutyCodeCustomsOfficeField End Get Set Me.dutyCodeCustomsOfficeField = Value End Set End Property Public Property indentureNumber() As String Get Return Me.indentureNumberField End Get Set Me.indentureNumberField = Value End Set End Property Public Property dutyRate() As Decimal Get Return Me.dutyRateField End Get Set Me.dutyRateField = Value End Set End Property Public Property dutyRateSpecified() As Boolean Get Return Me.dutyRateFieldSpecified End Get Set Me.dutyRateFieldSpecified = Value End Set End Property Public Property stornoFlag() As String Get Return Me.stornoFlagField End Get Set Me.stornoFlagField = Value End Set End Property Public Property dutyAmountIncreaseOrDecrease() As Decimal Get Return Me.dutyAmountIncreaseOrDecreaseField End Get Set Me.dutyAmountIncreaseOrDecreaseField = Value End Set End Property Public Property dutyAmountIncreaseOrDecreaseSpecified() As Boolean Get Return Me.dutyAmountIncreaseOrDecreaseFieldSpecified End Get Set Me.dutyAmountIncreaseOrDecreaseFieldSpecified = Value End Set End Property Public Property typeOfAdditionalCode() As String Get Return Me.typeOfAdditionalCodeField End Get Set Me.typeOfAdditionalCodeField = Value End Set End Property Public Property noOfAdditionalCode() As String Get Return Me.noOfAdditionalCodeField End Get Set Me.noOfAdditionalCodeField = Value End Set End Property Public Property calculatedDutyRate() As Decimal Get Return Me.calculatedDutyRateField End Get Set Me.calculatedDutyRateField = Value End Set End Property Public Property calculatedDutyRateSpecified() As Boolean Get Return Me.calculatedDutyRateFieldSpecified End Get Set Me.calculatedDutyRateFieldSpecified = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDutyTax)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDutyTax object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDutyTax object ''' '''string workflow markup to deserialize '''Output TDutyTax object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDutyTax, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDutyTax) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDutyTax) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDutyTax Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDutyTax) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDutyTax object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDutyTax object ''' '''string xml file to load and deserialize '''Output TDutyTax object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDutyTax, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDutyTax) 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 TDutyTax) 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 TDutyTax 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 Region End Class Partial Public Class TDuty Private typeField As String Private calcDutyBaseField As Decimal Private calcDutyBaseFieldSpecified As Boolean Private currencyField As String Private codeField As String Private rateField As Decimal Private rateFieldSpecified As Boolean Private amountField As Decimal Private amountFieldSpecified As Boolean Private addDeductField As Decimal Private addDeductFieldSpecified As Boolean Private calcDutyField As Decimal Private calcDutyFieldSpecified As Boolean Private dutyField As Decimal Private dutyFieldSpecified As Boolean Private dutyBaseField As Decimal Private dutyBaseFieldSpecified As Boolean Private measureCodeField As String Private measureField As String Private authorityDutyCodeField As String Private territoryField As String Private typeAddCodeField As String Private numberAddCodeField As String Private tariffRateQuotaField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property type() As String Get Return Me.typeField End Get Set Me.typeField = Value End Set End Property Public Property calcDutyBase() As Decimal Get Return Me.calcDutyBaseField End Get Set Me.calcDutyBaseField = Value End Set End Property Public Property calcDutyBaseSpecified() As Boolean Get Return Me.calcDutyBaseFieldSpecified End Get Set Me.calcDutyBaseFieldSpecified = Value End Set End Property Public Property currency() As String Get Return Me.currencyField End Get Set Me.currencyField = Value End Set End Property Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property rate() As Decimal Get Return Me.rateField End Get Set Me.rateField = Value End Set End Property Public Property rateSpecified() As Boolean Get Return Me.rateFieldSpecified End Get Set Me.rateFieldSpecified = Value End Set End Property Public Property amount() As Decimal Get Return Me.amountField End Get Set Me.amountField = Value End Set End Property Public Property amountSpecified() As Boolean Get Return Me.amountFieldSpecified End Get Set Me.amountFieldSpecified = Value End Set End Property Public Property addDeduct() As Decimal Get Return Me.addDeductField End Get Set Me.addDeductField = Value End Set End Property Public Property addDeductSpecified() As Boolean Get Return Me.addDeductFieldSpecified End Get Set Me.addDeductFieldSpecified = Value End Set End Property Public Property calcDuty() As Decimal Get Return Me.calcDutyField End Get Set Me.calcDutyField = Value End Set End Property Public Property calcDutySpecified() As Boolean Get Return Me.calcDutyFieldSpecified End Get Set Me.calcDutyFieldSpecified = Value End Set End Property Public Property duty() As Decimal Get Return Me.dutyField End Get Set Me.dutyField = Value End Set End Property Public Property dutySpecified() As Boolean Get Return Me.dutyFieldSpecified End Get Set Me.dutyFieldSpecified = Value End Set End Property Public Property dutyBase() As Decimal Get Return Me.dutyBaseField End Get Set Me.dutyBaseField = Value End Set End Property Public Property dutyBaseSpecified() As Boolean Get Return Me.dutyBaseFieldSpecified End Get Set Me.dutyBaseFieldSpecified = Value End Set End Property Public Property measureCode() As String Get Return Me.measureCodeField End Get Set Me.measureCodeField = Value End Set End Property Public Property measure() As String Get Return Me.measureField End Get Set Me.measureField = Value End Set End Property Public Property authorityDutyCode() As String Get Return Me.authorityDutyCodeField End Get Set Me.authorityDutyCodeField = Value End Set End Property Public Property territory() As String Get Return Me.territoryField End Get Set Me.territoryField = Value End Set End Property Public Property typeAddCode() As String Get Return Me.typeAddCodeField End Get Set Me.typeAddCodeField = Value End Set End Property Public Property numberAddCode() As String Get Return Me.numberAddCodeField End Get Set Me.numberAddCodeField = Value End Set End Property Public Property tariffRateQuota() As String Get Return Me.tariffRateQuotaField End Get Set Me.tariffRateQuotaField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDuty)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDuty object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDuty object ''' '''string workflow markup to deserialize '''Output TDuty object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDuty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDuty) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDuty) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDuty Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDuty) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDuty object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDuty object ''' '''string xml file to load and deserialize '''Output TDuty object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDuty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDuty) 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 TDuty) 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 TDuty 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 Region End Class Partial Public Class TCalcValuesCust Private customsValueField As Decimal Private customsValueFieldSpecified As Boolean Private netValueField As Decimal Private netValueFieldSpecified As Boolean Private additionalStatisticalValueField As Decimal Private additionalStatisticalValueFieldSpecified As Boolean Private additionalCostsVatField As Decimal Private additionalCostsVatFieldSpecified As Boolean Private addStatisticValueField As Decimal Private addStatisticValueFieldSpecified As Boolean Private oprIngredientsValueField As Decimal Private oprIngredientsValueFieldSpecified As Boolean Private additionalCosts1Field As Decimal Private additionalCosts1FieldSpecified As Boolean Private additionalCosts2Field As Decimal Private additionalCosts2FieldSpecified As Boolean Private additionalCosts3Field As Decimal Private additionalCosts3FieldSpecified As Boolean Private additionalCosts4Field As Decimal Private additionalCosts4FieldSpecified As Boolean Private additionalCosts5Field As Decimal Private additionalCosts5FieldSpecified As Boolean Private additionalCosts6Field As Decimal Private additionalCosts6FieldSpecified As Boolean Private additionalCosts7Field As Decimal Private additionalCosts7FieldSpecified As Boolean Private additionalCosts8Field As Decimal Private additionalCosts8FieldSpecified As Boolean Private additionalCosts9Field As Decimal Private additionalCosts9FieldSpecified As Boolean Private additionalCosts10Field As Decimal Private additionalCosts10FieldSpecified As Boolean Private additionalCosts11Field As Decimal Private additionalCosts11FieldSpecified As Boolean Private additionalCosts12Field As Decimal Private additionalCosts12FieldSpecified As Boolean Private additionalCosts13Field As Decimal Private additionalCosts13FieldSpecified As Boolean Private additionalCosts14Field As Decimal Private additionalCosts14FieldSpecified As Boolean Private additionalCosts15Field As Decimal Private additionalCosts15FieldSpecified As Boolean Private additionalCosts16Field As Decimal Private additionalCosts16FieldSpecified As Boolean Private additionalCosts17Field As Decimal Private additionalCosts17FieldSpecified As Boolean Private additionalCosts18Field As Decimal Private additionalCosts18FieldSpecified As Boolean Private additionalCosts19Field As Decimal Private additionalCosts19FieldSpecified As Boolean Private additionalCosts20Field As Decimal Private additionalCosts20FieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property customsValue() As Decimal Get Return Me.customsValueField End Get Set Me.customsValueField = Value End Set End Property Public Property customsValueSpecified() As Boolean Get Return Me.customsValueFieldSpecified End Get Set Me.customsValueFieldSpecified = Value End Set End Property Public Property netValue() As Decimal Get Return Me.netValueField End Get Set Me.netValueField = Value End Set End Property Public Property netValueSpecified() As Boolean Get Return Me.netValueFieldSpecified End Get Set Me.netValueFieldSpecified = Value End Set End Property Public Property additionalStatisticalValue() As Decimal Get Return Me.additionalStatisticalValueField End Get Set Me.additionalStatisticalValueField = Value End Set End Property Public Property additionalStatisticalValueSpecified() As Boolean Get Return Me.additionalStatisticalValueFieldSpecified End Get Set Me.additionalStatisticalValueFieldSpecified = Value End Set End Property Public Property additionalCostsVat() As Decimal Get Return Me.additionalCostsVatField End Get Set Me.additionalCostsVatField = Value End Set End Property Public Property additionalCostsVatSpecified() As Boolean Get Return Me.additionalCostsVatFieldSpecified End Get Set Me.additionalCostsVatFieldSpecified = Value End Set End Property Public Property addStatisticValue() As Decimal Get Return Me.addStatisticValueField End Get Set Me.addStatisticValueField = Value End Set End Property Public Property addStatisticValueSpecified() As Boolean Get Return Me.addStatisticValueFieldSpecified End Get Set Me.addStatisticValueFieldSpecified = Value End Set End Property Public Property oprIngredientsValue() As Decimal Get Return Me.oprIngredientsValueField End Get Set Me.oprIngredientsValueField = Value End Set End Property Public Property oprIngredientsValueSpecified() As Boolean Get Return Me.oprIngredientsValueFieldSpecified End Get Set Me.oprIngredientsValueFieldSpecified = Value End Set End Property Public Property additionalCosts1() As Decimal Get Return Me.additionalCosts1Field End Get Set Me.additionalCosts1Field = Value End Set End Property Public Property additionalCosts1Specified() As Boolean Get Return Me.additionalCosts1FieldSpecified End Get Set Me.additionalCosts1FieldSpecified = Value End Set End Property Public Property additionalCosts2() As Decimal Get Return Me.additionalCosts2Field End Get Set Me.additionalCosts2Field = Value End Set End Property Public Property additionalCosts2Specified() As Boolean Get Return Me.additionalCosts2FieldSpecified End Get Set Me.additionalCosts2FieldSpecified = Value End Set End Property Public Property additionalCosts3() As Decimal Get Return Me.additionalCosts3Field End Get Set Me.additionalCosts3Field = Value End Set End Property Public Property additionalCosts3Specified() As Boolean Get Return Me.additionalCosts3FieldSpecified End Get Set Me.additionalCosts3FieldSpecified = Value End Set End Property Public Property additionalCosts4() As Decimal Get Return Me.additionalCosts4Field End Get Set Me.additionalCosts4Field = Value End Set End Property Public Property additionalCosts4Specified() As Boolean Get Return Me.additionalCosts4FieldSpecified End Get Set Me.additionalCosts4FieldSpecified = Value End Set End Property Public Property additionalCosts5() As Decimal Get Return Me.additionalCosts5Field End Get Set Me.additionalCosts5Field = Value End Set End Property Public Property additionalCosts5Specified() As Boolean Get Return Me.additionalCosts5FieldSpecified End Get Set Me.additionalCosts5FieldSpecified = Value End Set End Property Public Property additionalCosts6() As Decimal Get Return Me.additionalCosts6Field End Get Set Me.additionalCosts6Field = Value End Set End Property Public Property additionalCosts6Specified() As Boolean Get Return Me.additionalCosts6FieldSpecified End Get Set Me.additionalCosts6FieldSpecified = Value End Set End Property Public Property additionalCosts7() As Decimal Get Return Me.additionalCosts7Field End Get Set Me.additionalCosts7Field = Value End Set End Property Public Property additionalCosts7Specified() As Boolean Get Return Me.additionalCosts7FieldSpecified End Get Set Me.additionalCosts7FieldSpecified = Value End Set End Property Public Property additionalCosts8() As Decimal Get Return Me.additionalCosts8Field End Get Set Me.additionalCosts8Field = Value End Set End Property Public Property additionalCosts8Specified() As Boolean Get Return Me.additionalCosts8FieldSpecified End Get Set Me.additionalCosts8FieldSpecified = Value End Set End Property Public Property additionalCosts9() As Decimal Get Return Me.additionalCosts9Field End Get Set Me.additionalCosts9Field = Value End Set End Property Public Property additionalCosts9Specified() As Boolean Get Return Me.additionalCosts9FieldSpecified End Get Set Me.additionalCosts9FieldSpecified = Value End Set End Property Public Property additionalCosts10() As Decimal Get Return Me.additionalCosts10Field End Get Set Me.additionalCosts10Field = Value End Set End Property Public Property additionalCosts10Specified() As Boolean Get Return Me.additionalCosts10FieldSpecified End Get Set Me.additionalCosts10FieldSpecified = Value End Set End Property Public Property additionalCosts11() As Decimal Get Return Me.additionalCosts11Field End Get Set Me.additionalCosts11Field = Value End Set End Property Public Property additionalCosts11Specified() As Boolean Get Return Me.additionalCosts11FieldSpecified End Get Set Me.additionalCosts11FieldSpecified = Value End Set End Property Public Property additionalCosts12() As Decimal Get Return Me.additionalCosts12Field End Get Set Me.additionalCosts12Field = Value End Set End Property Public Property additionalCosts12Specified() As Boolean Get Return Me.additionalCosts12FieldSpecified End Get Set Me.additionalCosts12FieldSpecified = Value End Set End Property Public Property additionalCosts13() As Decimal Get Return Me.additionalCosts13Field End Get Set Me.additionalCosts13Field = Value End Set End Property Public Property additionalCosts13Specified() As Boolean Get Return Me.additionalCosts13FieldSpecified End Get Set Me.additionalCosts13FieldSpecified = Value End Set End Property Public Property additionalCosts14() As Decimal Get Return Me.additionalCosts14Field End Get Set Me.additionalCosts14Field = Value End Set End Property Public Property additionalCosts14Specified() As Boolean Get Return Me.additionalCosts14FieldSpecified End Get Set Me.additionalCosts14FieldSpecified = Value End Set End Property Public Property additionalCosts15() As Decimal Get Return Me.additionalCosts15Field End Get Set Me.additionalCosts15Field = Value End Set End Property Public Property additionalCosts15Specified() As Boolean Get Return Me.additionalCosts15FieldSpecified End Get Set Me.additionalCosts15FieldSpecified = Value End Set End Property Public Property additionalCosts16() As Decimal Get Return Me.additionalCosts16Field End Get Set Me.additionalCosts16Field = Value End Set End Property Public Property additionalCosts16Specified() As Boolean Get Return Me.additionalCosts16FieldSpecified End Get Set Me.additionalCosts16FieldSpecified = Value End Set End Property Public Property additionalCosts17() As Decimal Get Return Me.additionalCosts17Field End Get Set Me.additionalCosts17Field = Value End Set End Property Public Property additionalCosts17Specified() As Boolean Get Return Me.additionalCosts17FieldSpecified End Get Set Me.additionalCosts17FieldSpecified = Value End Set End Property Public Property additionalCosts18() As Decimal Get Return Me.additionalCosts18Field End Get Set Me.additionalCosts18Field = Value End Set End Property Public Property additionalCosts18Specified() As Boolean Get Return Me.additionalCosts18FieldSpecified End Get Set Me.additionalCosts18FieldSpecified = Value End Set End Property Public Property additionalCosts19() As Decimal Get Return Me.additionalCosts19Field End Get Set Me.additionalCosts19Field = Value End Set End Property Public Property additionalCosts19Specified() As Boolean Get Return Me.additionalCosts19FieldSpecified End Get Set Me.additionalCosts19FieldSpecified = Value End Set End Property Public Property additionalCosts20() As Decimal Get Return Me.additionalCosts20Field End Get Set Me.additionalCosts20Field = Value End Set End Property Public Property additionalCosts20Specified() As Boolean Get Return Me.additionalCosts20FieldSpecified End Get Set Me.additionalCosts20FieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCalcValuesCust)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCalcValuesCust object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCalcValuesCust object ''' '''string workflow markup to deserialize '''Output TCalcValuesCust object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCalcValuesCust, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCalcValuesCust) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCalcValuesCust) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCalcValuesCust Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCalcValuesCust) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCalcValuesCust object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCalcValuesCust object ''' '''string xml file to load and deserialize '''Output TCalcValuesCust object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCalcValuesCust, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCalcValuesCust) 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 TCalcValuesCust) 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 TCalcValuesCust 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 Region End Class Partial Public Class TCalcValues Private customsValueField As Decimal Private customsValueFieldSpecified As Boolean Private netValueField As Decimal Private netValueFieldSpecified As Boolean Private statValueField As Decimal Private statValueFieldSpecified As Boolean Private freightStatValField As Decimal Private freightStatValFieldSpecified As Boolean Private freightInternationalField As Decimal Private freightInternationalFieldSpecified As Boolean Private freightEUField As Decimal Private freightEUFieldSpecified As Boolean Private freightNationalField As Decimal Private freightNationalFieldSpecified As Boolean Private insuranceField As Decimal Private insuranceFieldSpecified As Boolean Private shipAddCostsField As List(Of Decimal) Private invAddCostsField As List(Of Decimal) Private lineAddCostsField As List(Of Decimal) Private custValueField As Decimal Private custValueFieldSpecified As Boolean Private assistValueField As Decimal Private assistValueFieldSpecified As Boolean Private vatAddCostsField As Decimal Private vatAddCostsFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.lineAddCostsField = New List(Of Decimal)() Me.invAddCostsField = New List(Of Decimal)() Me.shipAddCostsField = New List(Of Decimal)() End Sub Public Property customsValue() As Decimal Get Return Me.customsValueField End Get Set Me.customsValueField = Value End Set End Property Public Property customsValueSpecified() As Boolean Get Return Me.customsValueFieldSpecified End Get Set Me.customsValueFieldSpecified = Value End Set End Property Public Property netValue() As Decimal Get Return Me.netValueField End Get Set Me.netValueField = Value End Set End Property Public Property netValueSpecified() As Boolean Get Return Me.netValueFieldSpecified End Get Set Me.netValueFieldSpecified = Value End Set End Property Public Property statValue() As Decimal Get Return Me.statValueField End Get Set Me.statValueField = Value End Set End Property Public Property statValueSpecified() As Boolean Get Return Me.statValueFieldSpecified End Get Set Me.statValueFieldSpecified = Value End Set End Property Public Property freightStatVal() As Decimal Get Return Me.freightStatValField End Get Set Me.freightStatValField = Value End Set End Property Public Property freightStatValSpecified() As Boolean Get Return Me.freightStatValFieldSpecified End Get Set Me.freightStatValFieldSpecified = Value End Set End Property Public Property freightInternational() As Decimal Get Return Me.freightInternationalField End Get Set Me.freightInternationalField = Value End Set End Property Public Property freightInternationalSpecified() As Boolean Get Return Me.freightInternationalFieldSpecified End Get Set Me.freightInternationalFieldSpecified = Value End Set End Property Public Property freightEU() As Decimal Get Return Me.freightEUField End Get Set Me.freightEUField = Value End Set End Property Public Property freightEUSpecified() As Boolean Get Return Me.freightEUFieldSpecified End Get Set Me.freightEUFieldSpecified = Value End Set End Property Public Property freightNational() As Decimal Get Return Me.freightNationalField End Get Set Me.freightNationalField = Value End Set End Property Public Property freightNationalSpecified() As Boolean Get Return Me.freightNationalFieldSpecified End Get Set Me.freightNationalFieldSpecified = Value End Set End Property Public Property insurance() As Decimal Get Return Me.insuranceField End Get Set Me.insuranceField = Value End Set End Property Public Property insuranceSpecified() As Boolean Get Return Me.insuranceFieldSpecified End Get Set Me.insuranceFieldSpecified = Value End Set End Property Public Property shipAddCosts() As List(Of Decimal) Get Return Me.shipAddCostsField End Get Set Me.shipAddCostsField = Value End Set End Property Public Property invAddCosts() As List(Of Decimal) Get Return Me.invAddCostsField End Get Set Me.invAddCostsField = Value End Set End Property Public Property lineAddCosts() As List(Of Decimal) Get Return Me.lineAddCostsField End Get Set Me.lineAddCostsField = Value End Set End Property Public Property custValue() As Decimal Get Return Me.custValueField End Get Set Me.custValueField = Value End Set End Property Public Property custValueSpecified() As Boolean Get Return Me.custValueFieldSpecified End Get Set Me.custValueFieldSpecified = Value End Set End Property Public Property assistValue() As Decimal Get Return Me.assistValueField End Get Set Me.assistValueField = Value End Set End Property Public Property assistValueSpecified() As Boolean Get Return Me.assistValueFieldSpecified End Get Set Me.assistValueFieldSpecified = Value End Set End Property Public Property vatAddCosts() As Decimal Get Return Me.vatAddCostsField End Get Set Me.vatAddCostsField = Value End Set End Property Public Property vatAddCostsSpecified() As Boolean Get Return Me.vatAddCostsFieldSpecified End Get Set Me.vatAddCostsFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCalcValues)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCalcValues object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCalcValues object ''' '''string workflow markup to deserialize '''Output TCalcValues object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCalcValues, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCalcValues) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCalcValues) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCalcValues Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCalcValues) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCalcValues object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCalcValues object ''' '''string xml file to load and deserialize '''Output TCalcValues object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCalcValues, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCalcValues) 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 TCalcValues) 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 TCalcValues 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 Region End Class Partial Public Class TImportRegistrationNo Private registrationNumber1Field As String Private registrationNumber2Field As String Private registrationNumber3Field As String Private registrationNumber4Field As String Private messageRefNumber1Field As String Private messageRefNumber2Field As String Private messageRefNumber3Field As String Private positionNumber1Field As Decimal Private positionNumber1FieldSpecified As Boolean Private positionNumber2Field As Decimal Private positionNumber2FieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property registrationNumber1() As String Get Return Me.registrationNumber1Field End Get Set Me.registrationNumber1Field = Value End Set End Property Public Property registrationNumber2() As String Get Return Me.registrationNumber2Field End Get Set Me.registrationNumber2Field = Value End Set End Property Public Property registrationNumber3() As String Get Return Me.registrationNumber3Field End Get Set Me.registrationNumber3Field = Value End Set End Property Public Property registrationNumber4() As String Get Return Me.registrationNumber4Field End Get Set Me.registrationNumber4Field = Value End Set End Property Public Property messageRefNumber1() As String Get Return Me.messageRefNumber1Field End Get Set Me.messageRefNumber1Field = Value End Set End Property Public Property messageRefNumber2() As String Get Return Me.messageRefNumber2Field End Get Set Me.messageRefNumber2Field = Value End Set End Property Public Property messageRefNumber3() As String Get Return Me.messageRefNumber3Field End Get Set Me.messageRefNumber3Field = Value End Set End Property Public Property positionNumber1() As Decimal Get Return Me.positionNumber1Field End Get Set Me.positionNumber1Field = Value End Set End Property Public Property positionNumber1Specified() As Boolean Get Return Me.positionNumber1FieldSpecified End Get Set Me.positionNumber1FieldSpecified = Value End Set End Property Public Property positionNumber2() As Decimal Get Return Me.positionNumber2Field End Get Set Me.positionNumber2Field = Value End Set End Property Public Property positionNumber2Specified() As Boolean Get Return Me.positionNumber2FieldSpecified End Get Set Me.positionNumber2FieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TImportRegistrationNo)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TImportRegistrationNo object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TImportRegistrationNo object ''' '''string workflow markup to deserialize '''Output TImportRegistrationNo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportRegistrationNo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportRegistrationNo) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportRegistrationNo) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TImportRegistrationNo Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TImportRegistrationNo) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TImportRegistrationNo object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TImportRegistrationNo object ''' '''string xml file to load and deserialize '''Output TImportRegistrationNo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportRegistrationNo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportRegistrationNo) 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 TImportRegistrationNo) 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 TImportRegistrationNo 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 Region End Class Partial Public Class TReceipt Private receiptNumberField As String Private receiptDateField As Date Private receiptDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property receiptNumber() As String Get Return Me.receiptNumberField End Get Set Me.receiptNumberField = Value End Set End Property Public Property receiptDate() As Date Get Return Me.receiptDateField End Get Set Me.receiptDateField = Value End Set End Property Public Property receiptDateSpecified() As Boolean Get Return Me.receiptDateFieldSpecified End Get Set Me.receiptDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TReceipt)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TReceipt object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TReceipt object ''' '''string workflow markup to deserialize '''Output TReceipt object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TReceipt, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TReceipt) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TReceipt) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TReceipt Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TReceipt) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TReceipt object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TReceipt object ''' '''string xml file to load and deserialize '''Output TReceipt object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TReceipt, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TReceipt) 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 TReceipt) 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 TReceipt 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 Region End Class Partial Public Class TPackage Private packageCountField As Decimal Private packageCountFieldSpecified As Boolean Private packageTypeField As String Private packageDescriptionField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property packageCount() As Decimal Get Return Me.packageCountField End Get Set Me.packageCountField = Value End Set End Property Public Property packageCountSpecified() As Boolean Get Return Me.packageCountFieldSpecified End Get Set Me.packageCountFieldSpecified = Value End Set End Property Public Property packageType() As String Get Return Me.packageTypeField End Get Set Me.packageTypeField = Value End Set End Property Public Property packageDescription() As String Get Return Me.packageDescriptionField End Get Set Me.packageDescriptionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPackage)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPackage object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPackage object ''' '''string workflow markup to deserialize '''Output TPackage object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackage, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackage) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPackage) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPackage Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPackage) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPackage object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPackage object ''' '''string xml file to load and deserialize '''Output TPackage object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPackage, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPackage) 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 TPackage) 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 TPackage 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 Region End Class Partial Public Class TBom Private noField As String Private varField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property no() As String Get Return Me.noField End Get Set Me.noField = Value End Set End Property Public Property var() As String Get Return Me.varField End Get Set Me.varField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TBom)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TBom object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TBom object ''' '''string workflow markup to deserialize '''Output TBom object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TBom, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TBom) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TBom) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TBom Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TBom) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TBom object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TBom object ''' '''string xml file to load and deserialize '''Output TBom object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TBom, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TBom) 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 TBom) 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 TBom 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 Region End Class Partial Public Class TAddCostsVAT Private addAmountVATField As Decimal Private addAmountVATFieldSpecified As Boolean Private addCurrencyVATField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property addAmountVAT() As Decimal Get Return Me.addAmountVATField End Get Set Me.addAmountVATField = Value End Set End Property Public Property addAmountVATSpecified() As Boolean Get Return Me.addAmountVATFieldSpecified End Get Set Me.addAmountVATFieldSpecified = Value End Set End Property Public Property addCurrencyVAT() As String Get Return Me.addCurrencyVATField End Get Set Me.addCurrencyVATField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAddCostsVAT)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAddCostsVAT object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAddCostsVAT object ''' '''string workflow markup to deserialize '''Output TAddCostsVAT object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddCostsVAT, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddCostsVAT) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddCostsVAT) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAddCostsVAT Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAddCostsVAT) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAddCostsVAT object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAddCostsVAT object ''' '''string xml file to load and deserialize '''Output TAddCostsVAT object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAddCostsVAT, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddCostsVAT) 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 TAddCostsVAT) 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 TAddCostsVAT 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 Region End Class Partial Public Class TRebateLine Private rebAmountField As Decimal Private rebAmountFieldSpecified As Boolean Private rebCurrencyField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property rebAmount() As Decimal Get Return Me.rebAmountField End Get Set Me.rebAmountField = Value End Set End Property Public Property rebAmountSpecified() As Boolean Get Return Me.rebAmountFieldSpecified End Get Set Me.rebAmountFieldSpecified = Value End Set End Property Public Property rebCurrency() As String Get Return Me.rebCurrencyField End Get Set Me.rebCurrencyField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TRebateLine)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TRebateLine object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TRebateLine object ''' '''string workflow markup to deserialize '''Output TRebateLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRebateLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRebateLine) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRebateLine) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TRebateLine Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TRebateLine) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TRebateLine object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TRebateLine object ''' '''string xml file to load and deserialize '''Output TRebateLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRebateLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRebateLine) 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 TRebateLine) 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 TRebateLine 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 Region End Class Partial Public Class TInsuranceCostsLine Private insAmountField As Decimal Private insAmountFieldSpecified As Boolean Private insCurrencyField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property insAmount() As Decimal Get Return Me.insAmountField End Get Set Me.insAmountField = Value End Set End Property Public Property insAmountSpecified() As Boolean Get Return Me.insAmountFieldSpecified End Get Set Me.insAmountFieldSpecified = Value End Set End Property Public Property insCurrency() As String Get Return Me.insCurrencyField End Get Set Me.insCurrencyField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInsuranceCostsLine)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInsuranceCostsLine object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInsuranceCostsLine object ''' '''string workflow markup to deserialize '''Output TInsuranceCostsLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCostsLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCostsLine) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCostsLine) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInsuranceCostsLine Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInsuranceCostsLine) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInsuranceCostsLine object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInsuranceCostsLine object ''' '''string xml file to load and deserialize '''Output TInsuranceCostsLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInsuranceCostsLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCostsLine) 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 TInsuranceCostsLine) 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 TInsuranceCostsLine 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 Region End Class Partial Public Class TFreightCostsLine Private frtAmountField As Decimal Private frtAmountFieldSpecified As Boolean Private frtCurrencyField As String Private frtInternationalField As Decimal Private frtInternationalFieldSpecified As Boolean Private frtEuNationalField As Decimal Private frtEuNationalFieldSpecified As Boolean Private frtInlandField As Decimal Private frtInlandFieldSpecified As Boolean Private frtFlagPercentOrValueField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.frtFlagPercentOrValueField = "P" End Sub Public Property frtAmount() As Decimal Get Return Me.frtAmountField End Get Set Me.frtAmountField = Value End Set End Property Public Property frtAmountSpecified() As Boolean Get Return Me.frtAmountFieldSpecified End Get Set Me.frtAmountFieldSpecified = Value End Set End Property Public Property frtCurrency() As String Get Return Me.frtCurrencyField End Get Set Me.frtCurrencyField = Value End Set End Property Public Property frtInternational() As Decimal Get Return Me.frtInternationalField End Get Set Me.frtInternationalField = Value End Set End Property Public Property frtInternationalSpecified() As Boolean Get Return Me.frtInternationalFieldSpecified End Get Set Me.frtInternationalFieldSpecified = Value End Set End Property Public Property frtEuNational() As Decimal Get Return Me.frtEuNationalField End Get Set Me.frtEuNationalField = Value End Set End Property Public Property frtEuNationalSpecified() As Boolean Get Return Me.frtEuNationalFieldSpecified End Get Set Me.frtEuNationalFieldSpecified = Value End Set End Property Public Property frtInland() As Decimal Get Return Me.frtInlandField End Get Set Me.frtInlandField = Value End Set End Property Public Property frtInlandSpecified() As Boolean Get Return Me.frtInlandFieldSpecified End Get Set Me.frtInlandFieldSpecified = Value End Set End Property Public Property frtFlagPercentOrValue() As String Get Return Me.frtFlagPercentOrValueField End Get Set Me.frtFlagPercentOrValueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TFreightCostsLine)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TFreightCostsLine object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TFreightCostsLine object ''' '''string workflow markup to deserialize '''Output TFreightCostsLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCostsLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCostsLine) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCostsLine) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TFreightCostsLine Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TFreightCostsLine) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TFreightCostsLine object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TFreightCostsLine object ''' '''string xml file to load and deserialize '''Output TFreightCostsLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TFreightCostsLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCostsLine) 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 TFreightCostsLine) 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 TFreightCostsLine 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 Region End Class Partial Public Class TPricing Private prcTypeField As String Private prcReferenceField As String Private prcDateField As Date Private prcDateFieldSpecified As Boolean Private prcSystemField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property prcType() As String Get Return Me.prcTypeField End Get Set Me.prcTypeField = Value End Set End Property Public Property prcReference() As String Get Return Me.prcReferenceField End Get Set Me.prcReferenceField = Value End Set End Property Public Property prcDate() As Date Get Return Me.prcDateField End Get Set Me.prcDateField = Value End Set End Property Public Property prcDateSpecified() As Boolean Get Return Me.prcDateFieldSpecified End Get Set Me.prcDateFieldSpecified = Value End Set End Property Public Property prcSystem() As String Get Return Me.prcSystemField End Get Set Me.prcSystemField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPricing)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPricing object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPricing object ''' '''string workflow markup to deserialize '''Output TPricing object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPricing, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPricing) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPricing) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPricing Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPricing) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPricing object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPricing object ''' '''string xml file to load and deserialize '''Output TPricing object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPricing, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPricing) 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 TPricing) 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 TPricing 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 Region End Class Partial Public Class TImportLineLicense Private typeField As String Private codeField As String Private numberField As String Private dateField As Date Private dateFieldSpecified As Boolean Private notRequiredField As Boolean Private notRequiredFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property type() As String Get Return Me.typeField End Get Set Me.typeField = Value End Set End Property Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property number() As String Get Return Me.numberField End Get Set Me.numberField = Value End Set End Property Public Property [date]() As Date Get Return Me.dateField End Get Set Me.dateField = Value End Set End Property Public Property dateSpecified() As Boolean Get Return Me.dateFieldSpecified End Get Set Me.dateFieldSpecified = Value End Set End Property Public Property notRequired() As Boolean Get Return Me.notRequiredField End Get Set Me.notRequiredField = Value End Set End Property Public Property notRequiredSpecified() As Boolean Get Return Me.notRequiredFieldSpecified End Get Set Me.notRequiredFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TImportLineLicense)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TImportLineLicense object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TImportLineLicense object ''' '''string workflow markup to deserialize '''Output TImportLineLicense object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportLineLicense, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportLineLicense) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportLineLicense) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TImportLineLicense Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TImportLineLicense) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TImportLineLicense object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TImportLineLicense object ''' '''string xml file to load and deserialize '''Output TImportLineLicense object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportLineLicense, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportLineLicense) 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 TImportLineLicense) 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 TImportLineLicense 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 Region End Class Partial Public Class TTariffCode Private hsCodeField As String Private vatCodeField As String Private exciseTaxCodeField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property hsCode() As String Get Return Me.hsCodeField End Get Set Me.hsCodeField = Value End Set End Property Public Property vatCode() As String Get Return Me.vatCodeField End Get Set Me.vatCodeField = Value End Set End Property Public Property exciseTaxCode() As String Get Return Me.exciseTaxCodeField End Get Set Me.exciseTaxCodeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TTariffCode)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TTariffCode object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TTariffCode object ''' '''string workflow markup to deserialize '''Output TTariffCode object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TTariffCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TTariffCode) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TTariffCode) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TTariffCode Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TTariffCode) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TTariffCode object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TTariffCode object ''' '''string xml file to load and deserialize '''Output TTariffCode object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TTariffCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TTariffCode) 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 TTariffCode) 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 TTariffCode 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 Region End Class Partial Public Class TItem Private partNumberField As String Private partDescriptionField As String Private serialNumberField As String Private productGroupField As String Private modelField As String Private brandField As String Private manufacturerNumberField As String Private ctoNumberField As String Private confidenceLevelField As Long Private confidenceLevelFieldSpecified As Boolean Private productCategoryField As String Private tariffCodeField As TTariffCode Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.tariffCodeField = New TTariffCode() End Sub Public Property partNumber() As String Get Return Me.partNumberField End Get Set Me.partNumberField = Value End Set End Property Public Property partDescription() As String Get Return Me.partDescriptionField End Get Set Me.partDescriptionField = Value End Set End Property Public Property serialNumber() As String Get Return Me.serialNumberField End Get Set Me.serialNumberField = Value End Set End Property Public Property productGroup() As String Get Return Me.productGroupField End Get Set Me.productGroupField = Value End Set End Property Public Property model() As String Get Return Me.modelField End Get Set Me.modelField = Value End Set End Property Public Property brand() As String Get Return Me.brandField End Get Set Me.brandField = Value End Set End Property Public Property manufacturerNumber() As String Get Return Me.manufacturerNumberField End Get Set Me.manufacturerNumberField = Value End Set End Property Public Property ctoNumber() As String Get Return Me.ctoNumberField End Get Set Me.ctoNumberField = Value End Set End Property Public Property confidenceLevel() As Long Get Return Me.confidenceLevelField End Get Set Me.confidenceLevelField = Value End Set End Property Public Property confidenceLevelSpecified() As Boolean Get Return Me.confidenceLevelFieldSpecified End Get Set Me.confidenceLevelFieldSpecified = Value End Set End Property Public Property productCategory() As String Get Return Me.productCategoryField End Get Set Me.productCategoryField = Value End Set End Property Public Property TariffCode() As TTariffCode Get Return Me.tariffCodeField End Get Set Me.tariffCodeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TItem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TItem object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TItem object ''' '''string workflow markup to deserialize '''Output TItem object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TItem) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TItem) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TItem) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TItem object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TItem object ''' '''string xml file to load and deserialize '''Output TItem object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TItem) 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 TItem) 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 TItem 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 Region End Class Partial Public Class TInvoiceLine Private lineNumberField As Decimal Private itemField As TItem Private quantityField As Decimal Private quantityFieldSpecified As Boolean Private quantityUomField As String Private netWeightField As Decimal Private netWeightFieldSpecified As Boolean Private grossWeightField As Decimal Private grossWeightFieldSpecified As Boolean Private reportingQuantityField As Decimal Private reportingQuantityFieldSpecified As Boolean Private reportingQuantityUomField As String Private priceField As Decimal Private priceFieldSpecified As Boolean Private lineValueField As Decimal Private lineValueFieldSpecified As Boolean Private licenseField As TImportLineLicense Private pricingField As TPricing Private freightCostsField As TFreightCostsLine Private insuranceCostsField As TInsuranceCostsLine Private additionalCostField As List(Of TAddCosts) Private rebateField As TRebateLine Private additionalCostsVATField As TAddCostsVAT Private countryOfOriginField As String Private prefCountryOfOriginField As String Private locationOfGoodsField As String Private importQuotaField As String Private importQuotaKeyField As String Private importQuotaQuantityField As Decimal Private importQuotaQuantityFieldSpecified As Boolean Private importQuotaUnitOfMeasurementField As String Private importQuotaQualifierField As String Private customsProcedureField As String Private statisticalCodeField As String Private endUseIndicatorField As String Private transactionTypeField As String Private addCodeField As List(Of String) Private prefRequestCodeField As String Private documentsField As List(Of TDocument) Private previousDocumentField As List(Of TPrevDoc) Private bOMField As TBom Private stockTypeField As String Private stockType2Field As String Private stockExpiryDateField As Date Private stockExpiryDateFieldSpecified As Boolean Private packageField As TPackage Private accountNumberField As String Private deliveryNoteField As String Private orderNumberField As String Private receiptField As TReceipt Private asnNumberField As String Private referenceValueField As Decimal Private referenceValueFieldSpecified As Boolean Private referenceCurrencyField As String Private textField As String Private text2Field As String Private registrationNumbersField As TImportRegistrationNo Private customerFieldsField As TCustomerFields Private attributesField As List(Of TAttribute) Private containerInfoField As List(Of TDetailContainerInfo) Private partnersField As List(Of TPartner) Private calculatedValuesField As TCalcValues Private calculatedValuesCustField As TCalcValuesCust Private dutiesField As List(Of TDuty) Private dutyTaxesField As List(Of TDutyTax) Private dutySavingsField As List(Of TDutySaving) Private oprDetailsField As TOprInfo Private uniqueIdField As Decimal Private uniqueIdFieldSpecified As Boolean Private externalProcessingField As String Private additionalInformationField As List(Of TAttribute) Private intraField As TCustIntraLine Private preSupplierField As TPreSupplier Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private valuationIndicatorField As String Private referencePreviousProceduresField As List(Of TRefPrevProcedure) Private packagesDataField As TPackagesData Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.packagesDataField = New TPackagesData() Me.referencePreviousProceduresField = New List(Of TRefPrevProcedure)() Me.preSupplierField = New TPreSupplier() Me.intraField = New TCustIntraLine() Me.additionalInformationField = New List(Of TAttribute)() Me.oprDetailsField = New TOprInfo() Me.dutySavingsField = New List(Of TDutySaving)() Me.dutyTaxesField = New List(Of TDutyTax)() Me.dutiesField = New List(Of TDuty)() Me.calculatedValuesCustField = New TCalcValuesCust() Me.calculatedValuesField = New TCalcValues() Me.partnersField = New List(Of TPartner)() Me.containerInfoField = New List(Of TDetailContainerInfo)() Me.attributesField = New List(Of TAttribute)() Me.customerFieldsField = New TCustomerFields() Me.registrationNumbersField = New TImportRegistrationNo() Me.receiptField = New TReceipt() Me.packageField = New TPackage() Me.bOMField = New TBom() Me.previousDocumentField = New List(Of TPrevDoc)() Me.documentsField = New List(Of TDocument)() Me.addCodeField = New List(Of String)() Me.additionalCostsVATField = New TAddCostsVAT() Me.rebateField = New TRebateLine() Me.additionalCostField = New List(Of TAddCosts)() Me.insuranceCostsField = New TInsuranceCostsLine() Me.freightCostsField = New TFreightCostsLine() Me.pricingField = New TPricing() Me.licenseField = New TImportLineLicense() Me.itemField = New TItem() End Sub Public Property lineNumber() As Decimal Get Return Me.lineNumberField End Get Set Me.lineNumberField = Value End Set End Property Public Property Item() As TItem Get Return Me.itemField End Get Set Me.itemField = Value End Set End Property Public Property quantity() As Decimal Get Return Me.quantityField End Get Set Me.quantityField = Value End Set End Property Public Property quantitySpecified() As Boolean Get Return Me.quantityFieldSpecified End Get Set Me.quantityFieldSpecified = Value End Set End Property Public Property quantityUom() As String Get Return Me.quantityUomField End Get Set Me.quantityUomField = Value End Set End Property Public Property netWeight() As Decimal Get Return Me.netWeightField End Get Set Me.netWeightField = Value End Set End Property Public Property netWeightSpecified() As Boolean Get Return Me.netWeightFieldSpecified End Get Set Me.netWeightFieldSpecified = Value End Set End Property Public Property grossWeight() As Decimal Get Return Me.grossWeightField End Get Set Me.grossWeightField = Value End Set End Property Public Property grossWeightSpecified() As Boolean Get Return Me.grossWeightFieldSpecified End Get Set Me.grossWeightFieldSpecified = Value End Set End Property Public Property reportingQuantity() As Decimal Get Return Me.reportingQuantityField End Get Set Me.reportingQuantityField = Value End Set End Property Public Property reportingQuantitySpecified() As Boolean Get Return Me.reportingQuantityFieldSpecified End Get Set Me.reportingQuantityFieldSpecified = Value End Set End Property Public Property reportingQuantityUom() As String Get Return Me.reportingQuantityUomField End Get Set Me.reportingQuantityUomField = Value End Set End Property Public Property price() As Decimal Get Return Me.priceField End Get Set Me.priceField = Value End Set End Property Public Property priceSpecified() As Boolean Get Return Me.priceFieldSpecified End Get Set Me.priceFieldSpecified = Value End Set End Property Public Property lineValue() As Decimal Get Return Me.lineValueField End Get Set Me.lineValueField = Value End Set End Property Public Property lineValueSpecified() As Boolean Get Return Me.lineValueFieldSpecified End Get Set Me.lineValueFieldSpecified = Value End Set End Property Public Property License() As TImportLineLicense Get Return Me.licenseField End Get Set Me.licenseField = Value End Set End Property Public Property Pricing() As TPricing Get Return Me.pricingField End Get Set Me.pricingField = Value End Set End Property Public Property FreightCosts() As TFreightCostsLine Get Return Me.freightCostsField End Get Set Me.freightCostsField = Value End Set End Property Public Property InsuranceCosts() As TInsuranceCostsLine Get Return Me.insuranceCostsField End Get Set Me.insuranceCostsField = Value End Set End Property Public Property AdditionalCost() As List(Of TAddCosts) Get Return Me.additionalCostField End Get Set Me.additionalCostField = Value End Set End Property Public Property Rebate() As TRebateLine Get Return Me.rebateField End Get Set Me.rebateField = Value End Set End Property Public Property AdditionalCostsVAT() As TAddCostsVAT Get Return Me.additionalCostsVATField End Get Set Me.additionalCostsVATField = Value End Set End Property Public Property countryOfOrigin() As String Get Return Me.countryOfOriginField End Get Set Me.countryOfOriginField = Value End Set End Property Public Property prefCountryOfOrigin() As String Get Return Me.prefCountryOfOriginField End Get Set Me.prefCountryOfOriginField = Value End Set End Property Public Property locationOfGoods() As String Get Return Me.locationOfGoodsField End Get Set Me.locationOfGoodsField = Value End Set End Property Public Property importQuota() As String Get Return Me.importQuotaField End Get Set Me.importQuotaField = Value End Set End Property Public Property importQuotaKey() As String Get Return Me.importQuotaKeyField End Get Set Me.importQuotaKeyField = Value End Set End Property Public Property importQuotaQuantity() As Decimal Get Return Me.importQuotaQuantityField End Get Set Me.importQuotaQuantityField = Value End Set End Property Public Property importQuotaQuantitySpecified() As Boolean Get Return Me.importQuotaQuantityFieldSpecified End Get Set Me.importQuotaQuantityFieldSpecified = Value End Set End Property Public Property importQuotaUnitOfMeasurement() As String Get Return Me.importQuotaUnitOfMeasurementField End Get Set Me.importQuotaUnitOfMeasurementField = Value End Set End Property Public Property importQuotaQualifier() As String Get Return Me.importQuotaQualifierField End Get Set Me.importQuotaQualifierField = Value End Set End Property Public Property customsProcedure() As String Get Return Me.customsProcedureField End Get Set Me.customsProcedureField = Value End Set End Property Public Property statisticalCode() As String Get Return Me.statisticalCodeField End Get Set Me.statisticalCodeField = Value End Set End Property Public Property endUseIndicator() As String Get Return Me.endUseIndicatorField End Get Set Me.endUseIndicatorField = Value End Set End Property Public Property transactionType() As String Get Return Me.transactionTypeField End Get Set Me.transactionTypeField = Value End Set End Property Public Property addCode() As List(Of String) Get Return Me.addCodeField End Get Set Me.addCodeField = Value End Set End Property Public Property prefRequestCode() As String Get Return Me.prefRequestCodeField End Get Set Me.prefRequestCodeField = Value End Set End Property Public Property Documents() As List(Of TDocument) Get Return Me.documentsField End Get Set Me.documentsField = Value End Set End Property Public Property PreviousDocument() As List(Of TPrevDoc) Get Return Me.previousDocumentField End Get Set Me.previousDocumentField = Value End Set End Property Public Property BOM() As TBom Get Return Me.bOMField End Get Set Me.bOMField = Value End Set End Property Public Property stockType() As String Get Return Me.stockTypeField End Get Set Me.stockTypeField = Value End Set End Property Public Property stockType2() As String Get Return Me.stockType2Field End Get Set Me.stockType2Field = Value End Set End Property Public Property stockExpiryDate() As Date Get Return Me.stockExpiryDateField End Get Set Me.stockExpiryDateField = Value End Set End Property Public Property stockExpiryDateSpecified() As Boolean Get Return Me.stockExpiryDateFieldSpecified End Get Set Me.stockExpiryDateFieldSpecified = Value End Set End Property Public Property Package() As TPackage Get Return Me.packageField End Get Set Me.packageField = Value End Set End Property Public Property accountNumber() As String Get Return Me.accountNumberField End Get Set Me.accountNumberField = Value End Set End Property Public Property deliveryNote() As String Get Return Me.deliveryNoteField End Get Set Me.deliveryNoteField = Value End Set End Property Public Property orderNumber() As String Get Return Me.orderNumberField End Get Set Me.orderNumberField = Value End Set End Property Public Property Receipt() As TReceipt Get Return Me.receiptField End Get Set Me.receiptField = Value End Set End Property Public Property asnNumber() As String Get Return Me.asnNumberField End Get Set Me.asnNumberField = Value End Set End Property Public Property referenceValue() As Decimal Get Return Me.referenceValueField End Get Set Me.referenceValueField = Value End Set End Property Public Property referenceValueSpecified() As Boolean Get Return Me.referenceValueFieldSpecified End Get Set Me.referenceValueFieldSpecified = Value End Set End Property Public Property referenceCurrency() As String Get Return Me.referenceCurrencyField End Get Set Me.referenceCurrencyField = Value End Set End Property Public Property text() As String Get Return Me.textField End Get Set Me.textField = Value End Set End Property Public Property text2() As String Get Return Me.text2Field End Get Set Me.text2Field = Value End Set End Property Public Property RegistrationNumbers() As TImportRegistrationNo Get Return Me.registrationNumbersField End Get Set Me.registrationNumbersField = Value End Set End Property Public Property CustomerFields() As TCustomerFields Get Return Me.customerFieldsField End Get Set Me.customerFieldsField = Value End Set End Property Public Property Attributes() As List(Of TAttribute) Get Return Me.attributesField End Get Set Me.attributesField = Value End Set End Property Public Property ContainerInfo() As List(Of TDetailContainerInfo) Get Return Me.containerInfoField End Get Set Me.containerInfoField = Value End Set End Property Public Property Partners() As List(Of TPartner) Get Return Me.partnersField End Get Set Me.partnersField = Value End Set End Property Public Property CalculatedValues() As TCalcValues Get Return Me.calculatedValuesField End Get Set Me.calculatedValuesField = Value End Set End Property Public Property CalculatedValuesCust() As TCalcValuesCust Get Return Me.calculatedValuesCustField End Get Set Me.calculatedValuesCustField = Value End Set End Property Public Property Duties() As List(Of TDuty) Get Return Me.dutiesField End Get Set Me.dutiesField = Value End Set End Property Public Property DutyTaxes() As List(Of TDutyTax) Get Return Me.dutyTaxesField End Get Set Me.dutyTaxesField = Value End Set End Property Public Property DutySavings() As List(Of TDutySaving) Get Return Me.dutySavingsField End Get Set Me.dutySavingsField = Value End Set End Property Public Property OprDetails() As TOprInfo Get Return Me.oprDetailsField End Get Set Me.oprDetailsField = Value End Set End Property Public Property uniqueId() As Decimal Get Return Me.uniqueIdField End Get Set Me.uniqueIdField = Value End Set End Property Public Property uniqueIdSpecified() As Boolean Get Return Me.uniqueIdFieldSpecified End Get Set Me.uniqueIdFieldSpecified = Value End Set End Property Public Property externalProcessing() As String Get Return Me.externalProcessingField End Get Set Me.externalProcessingField = Value End Set End Property Public Property AdditionalInformation() As List(Of TAttribute) Get Return Me.additionalInformationField End Get Set Me.additionalInformationField = Value End Set End Property Public Property Intra() As TCustIntraLine Get Return Me.intraField End Get Set Me.intraField = Value End Set End Property Public Property PreSupplier() As TPreSupplier Get Return Me.preSupplierField End Get Set Me.preSupplierField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Public Property valuationIndicator() As String Get Return Me.valuationIndicatorField End Get Set Me.valuationIndicatorField = Value End Set End Property Public Property ReferencePreviousProcedures() As List(Of TRefPrevProcedure) Get Return Me.referencePreviousProceduresField End Get Set Me.referencePreviousProceduresField = Value End Set End Property Public Property PackagesData() As TPackagesData Get Return Me.packagesDataField End Get Set Me.packagesDataField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInvoiceLine)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInvoiceLine object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInvoiceLine object ''' '''string workflow markup to deserialize '''Output TInvoiceLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoiceLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoiceLine) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoiceLine) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInvoiceLine Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInvoiceLine) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInvoiceLine object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInvoiceLine object ''' '''string xml file to load and deserialize '''Output TInvoiceLine object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLine, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoiceLine) 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 TInvoiceLine) 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 TInvoiceLine 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 Region End Class Partial Public Class TAddCosts Private addTypeField As String Private addAmountField As Decimal Private addAmountFieldSpecified As Boolean Private addCurrencyField As String Private addProRatingField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property addType() As String Get Return Me.addTypeField End Get Set Me.addTypeField = Value End Set End Property Public Property addAmount() As Decimal Get Return Me.addAmountField End Get Set Me.addAmountField = Value End Set End Property Public Property addAmountSpecified() As Boolean Get Return Me.addAmountFieldSpecified End Get Set Me.addAmountFieldSpecified = Value End Set End Property Public Property addCurrency() As String Get Return Me.addCurrencyField End Get Set Me.addCurrencyField = Value End Set End Property Public Property addProRating() As String Get Return Me.addProRatingField End Get Set Me.addProRatingField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAddCosts)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAddCosts object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAddCosts object ''' '''string workflow markup to deserialize '''Output TAddCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddCosts) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddCosts) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAddCosts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAddCosts) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAddCosts object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAddCosts object ''' '''string xml file to load and deserialize '''Output TAddCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAddCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddCosts) 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 TAddCosts) 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 TAddCosts 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 Region End Class Partial Public Class TDocument Private docNoField As String Private docDateField As Date Private docDateFieldSpecified As Boolean Private docTypeField As String Private docQualField As String Private docValidFromField As Date Private docValidFromFieldSpecified As Boolean Private docValidToField As Date Private docValidToFieldSpecified As Boolean Private docAddTextField As String Private docQuantityField As Decimal Private docQuantityFieldSpecified As Boolean Private docUnitField As String Private docValueField As Decimal Private docValueFieldSpecified As Boolean Private docCategoryField As String Private docWriteOffQuantityField As Decimal Private docWriteOffQuantityFieldSpecified As Boolean Private docIssuerCountryField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property docNo() As String Get Return Me.docNoField End Get Set Me.docNoField = Value End Set End Property Public Property docDate() As Date Get Return Me.docDateField End Get Set Me.docDateField = Value End Set End Property Public Property docDateSpecified() As Boolean Get Return Me.docDateFieldSpecified End Get Set Me.docDateFieldSpecified = Value End Set End Property Public Property docType() As String Get Return Me.docTypeField End Get Set Me.docTypeField = Value End Set End Property Public Property docQual() As String Get Return Me.docQualField End Get Set Me.docQualField = Value End Set End Property Public Property docValidFrom() As Date Get Return Me.docValidFromField End Get Set Me.docValidFromField = Value End Set End Property Public Property docValidFromSpecified() As Boolean Get Return Me.docValidFromFieldSpecified End Get Set Me.docValidFromFieldSpecified = Value End Set End Property Public Property docValidTo() As Date Get Return Me.docValidToField End Get Set Me.docValidToField = Value End Set End Property Public Property docValidToSpecified() As Boolean Get Return Me.docValidToFieldSpecified End Get Set Me.docValidToFieldSpecified = Value End Set End Property Public Property docAddText() As String Get Return Me.docAddTextField End Get Set Me.docAddTextField = Value End Set End Property Public Property docQuantity() As Decimal Get Return Me.docQuantityField End Get Set Me.docQuantityField = Value End Set End Property Public Property docQuantitySpecified() As Boolean Get Return Me.docQuantityFieldSpecified End Get Set Me.docQuantityFieldSpecified = Value End Set End Property Public Property docUnit() As String Get Return Me.docUnitField End Get Set Me.docUnitField = Value End Set End Property Public Property docValue() As Decimal Get Return Me.docValueField End Get Set Me.docValueField = Value End Set End Property Public Property docValueSpecified() As Boolean Get Return Me.docValueFieldSpecified End Get Set Me.docValueFieldSpecified = Value End Set End Property Public Property docCategory() As String Get Return Me.docCategoryField End Get Set Me.docCategoryField = Value End Set End Property Public Property docWriteOffQuantity() As Decimal Get Return Me.docWriteOffQuantityField End Get Set Me.docWriteOffQuantityField = Value End Set End Property Public Property docWriteOffQuantitySpecified() As Boolean Get Return Me.docWriteOffQuantityFieldSpecified End Get Set Me.docWriteOffQuantityFieldSpecified = Value End Set End Property Public Property docIssuerCountry() As String Get Return Me.docIssuerCountryField End Get Set Me.docIssuerCountryField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDocument)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDocument object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDocument object ''' '''string workflow markup to deserialize '''Output TDocument object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDocument) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDocument) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDocument Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDocument) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDocument object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDocument object ''' '''string xml file to load and deserialize '''Output TDocument object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDocument) 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 TDocument) 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 TDocument 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 Region End Class Partial Public Class TPrevDoc Private previousDocTypeField As String Private previousDocNumberField As String Private previousDocDateField As Date Private previousDocDateFieldSpecified As Boolean Private departureCustomsOfficeField As String Private destinationCustomsOfficeField As String Private typeField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property previousDocType() As String Get Return Me.previousDocTypeField End Get Set Me.previousDocTypeField = Value End Set End Property Public Property previousDocNumber() As String Get Return Me.previousDocNumberField End Get Set Me.previousDocNumberField = Value End Set End Property Public Property previousDocDate() As Date Get Return Me.previousDocDateField End Get Set Me.previousDocDateField = Value End Set End Property Public Property previousDocDateSpecified() As Boolean Get Return Me.previousDocDateFieldSpecified End Get Set Me.previousDocDateFieldSpecified = Value End Set End Property Public Property departureCustomsOffice() As String Get Return Me.departureCustomsOfficeField End Get Set Me.departureCustomsOfficeField = Value End Set End Property Public Property destinationCustomsOffice() As String Get Return Me.destinationCustomsOfficeField End Get Set Me.destinationCustomsOfficeField = Value End Set End Property Public Property type() As String Get Return Me.typeField End Get Set Me.typeField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPrevDoc)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPrevDoc object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPrevDoc object ''' '''string workflow markup to deserialize '''Output TPrevDoc object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPrevDoc, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPrevDoc) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPrevDoc) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPrevDoc Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPrevDoc) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPrevDoc object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPrevDoc object ''' '''string xml file to load and deserialize '''Output TPrevDoc object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPrevDoc, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPrevDoc) 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 TPrevDoc) 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 TPrevDoc 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 Region End Class Partial Public Class TCustomerFields Private textsField As List(Of TCustomerText) Private datesField As List(Of TCustomerDate) Private flagsField As List(Of TCustomerFlag) Private numbersField As List(Of TCustomerNumber) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.numbersField = New List(Of TCustomerNumber)() Me.flagsField = New List(Of TCustomerFlag)() Me.datesField = New List(Of TCustomerDate)() Me.textsField = New List(Of TCustomerText)() End Sub Public Property Texts() As List(Of TCustomerText) Get Return Me.textsField End Get Set Me.textsField = Value End Set End Property Public Property Dates() As List(Of TCustomerDate) Get Return Me.datesField End Get Set Me.datesField = Value End Set End Property Public Property Flags() As List(Of TCustomerFlag) Get Return Me.flagsField End Get Set Me.flagsField = Value End Set End Property Public Property Numbers() As List(Of TCustomerNumber) Get Return Me.numbersField End Get Set Me.numbersField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustomerFields)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustomerFields object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustomerFields object ''' '''string workflow markup to deserialize '''Output TCustomerFields object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerFields, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerFields) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerFields) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustomerFields Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustomerFields) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustomerFields object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustomerFields object ''' '''string xml file to load and deserialize '''Output TCustomerFields object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomerFields, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerFields) 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 TCustomerFields) 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 TCustomerFields 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 Region End Class Partial Public Class TCustomerText Private keyField As Integer Private valueField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property key() As Integer Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As String Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustomerText)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustomerText object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustomerText object ''' '''string workflow markup to deserialize '''Output TCustomerText object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerText, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerText) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerText) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustomerText Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustomerText) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustomerText object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustomerText object ''' '''string xml file to load and deserialize '''Output TCustomerText object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomerText, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerText) 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 TCustomerText) 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 TCustomerText 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 Region End Class Partial Public Class TCustomerDate Private keyField As Integer Private valueField As Date Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property key() As Integer Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As Date Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustomerDate)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustomerDate object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustomerDate object ''' '''string workflow markup to deserialize '''Output TCustomerDate object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerDate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerDate) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerDate) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustomerDate Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustomerDate) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustomerDate object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustomerDate object ''' '''string xml file to load and deserialize '''Output TCustomerDate object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomerDate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerDate) 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 TCustomerDate) 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 TCustomerDate 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 Region End Class Partial Public Class TCustomerFlag Private keyField As Integer Private valueField As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property key() As Integer Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As Boolean Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustomerFlag)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustomerFlag object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustomerFlag object ''' '''string workflow markup to deserialize '''Output TCustomerFlag object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerFlag, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerFlag) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerFlag) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustomerFlag Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustomerFlag) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustomerFlag object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustomerFlag object ''' '''string xml file to load and deserialize '''Output TCustomerFlag object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomerFlag, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerFlag) 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 TCustomerFlag) 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 TCustomerFlag 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 Region End Class Partial Public Class TCustomerNumber Private keyField As Integer Private valueField As Decimal Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property key() As Integer Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As Decimal Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustomerNumber)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustomerNumber object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustomerNumber object ''' '''string workflow markup to deserialize '''Output TCustomerNumber object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerNumber, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerNumber) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustomerNumber) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustomerNumber Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustomerNumber) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustomerNumber object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustomerNumber object ''' '''string xml file to load and deserialize '''Output TCustomerNumber object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomerNumber, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustomerNumber) 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 TCustomerNumber) 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 TCustomerNumber 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 Region End Class Partial Public Class TAttribute Private attrTypeField As String Private attrTextField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property attrType() As String Get Return Me.attrTypeField End Get Set Me.attrTypeField = Value End Set End Property Public Property attrText() As String Get Return Me.attrTextField End Get Set Me.attrTextField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAttribute)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAttribute object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAttribute object ''' '''string workflow markup to deserialize '''Output TAttribute object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAttribute, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAttribute) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAttribute) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAttribute Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAttribute) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAttribute object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAttribute object ''' '''string xml file to load and deserialize '''Output TAttribute object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAttribute, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAttribute) 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 TAttribute) 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 TAttribute 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 Region End Class Partial Public Class TDetailContainerInfo Private containerNumberField As String Private containerSealNumberField As String Private containerPackagesField As Decimal Private containerPackagesFieldSpecified As Boolean Private containerGrossWeightField As Decimal Private containerGrossWeightFieldSpecified As Boolean Private containerNetWeightField As Decimal Private containerNetWeightFieldSpecified As Boolean Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property containerNumber() As String Get Return Me.containerNumberField End Get Set Me.containerNumberField = Value End Set End Property Public Property containerSealNumber() As String Get Return Me.containerSealNumberField End Get Set Me.containerSealNumberField = Value End Set End Property Public Property containerPackages() As Decimal Get Return Me.containerPackagesField End Get Set Me.containerPackagesField = Value End Set End Property Public Property containerPackagesSpecified() As Boolean Get Return Me.containerPackagesFieldSpecified End Get Set Me.containerPackagesFieldSpecified = Value End Set End Property Public Property containerGrossWeight() As Decimal Get Return Me.containerGrossWeightField End Get Set Me.containerGrossWeightField = Value End Set End Property Public Property containerGrossWeightSpecified() As Boolean Get Return Me.containerGrossWeightFieldSpecified End Get Set Me.containerGrossWeightFieldSpecified = Value End Set End Property Public Property containerNetWeight() As Decimal Get Return Me.containerNetWeightField End Get Set Me.containerNetWeightField = Value End Set End Property Public Property containerNetWeightSpecified() As Boolean Get Return Me.containerNetWeightFieldSpecified End Get Set Me.containerNetWeightFieldSpecified = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDetailContainerInfo)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDetailContainerInfo object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDetailContainerInfo object ''' '''string workflow markup to deserialize '''Output TDetailContainerInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDetailContainerInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDetailContainerInfo) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDetailContainerInfo) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDetailContainerInfo Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDetailContainerInfo) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDetailContainerInfo object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDetailContainerInfo object ''' '''string xml file to load and deserialize '''Output TDetailContainerInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDetailContainerInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDetailContainerInfo) 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 TDetailContainerInfo) 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 TDetailContainerInfo 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 Region End Class Partial Public Class TPartner Private partnerTypeField As String Private partnerAddressField As TAddress Private partnerRelationField As String Private partnerInfoField As String Private partnerTelephoneField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.partnerAddressField = New TAddress() End Sub Public Property partnerType() As String Get Return Me.partnerTypeField End Get Set Me.partnerTypeField = Value End Set End Property Public Property PartnerAddress() As TAddress Get Return Me.partnerAddressField End Get Set Me.partnerAddressField = Value End Set End Property Public Property partnerRelation() As String Get Return Me.partnerRelationField End Get Set Me.partnerRelationField = Value End Set End Property Public Property partnerInfo() As String Get Return Me.partnerInfoField End Get Set Me.partnerInfoField = Value End Set End Property Public Property partnerTelephone() As String Get Return Me.partnerTelephoneField End Get Set Me.partnerTelephoneField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TPartner)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TPartner object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TPartner object ''' '''string workflow markup to deserialize '''Output TPartner object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPartner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPartner) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TPartner) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TPartner Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TPartner) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TPartner object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TPartner object ''' '''string xml file to load and deserialize '''Output TPartner object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPartner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TPartner) 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 TPartner) 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 TPartner 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 Region End Class Partial Public Class TAddress Private addrNoField As String Private addrNoTypeField As String Private addrNameField As List(Of String) Private addrStreetField As String Private addrLocField As String Private addrCtryField As String Private addrStateField As String Private addrZipField As String Private addrTinField As String Private addrEoriField As String Private partnerRelationField As String Private addrDistrictField As String Private addrBranchNoField As String Private emailField As String Private addrVatNumberField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.addrNameField = New List(Of String)() End Sub Public Property addrNo() As String Get Return Me.addrNoField End Get Set Me.addrNoField = Value End Set End Property Public Property addrNoType() As String Get Return Me.addrNoTypeField End Get Set Me.addrNoTypeField = Value End Set End Property Public Property addrName() As List(Of String) Get Return Me.addrNameField End Get Set Me.addrNameField = Value End Set End Property Public Property addrStreet() As String Get Return Me.addrStreetField End Get Set Me.addrStreetField = Value End Set End Property Public Property addrLoc() As String Get Return Me.addrLocField End Get Set Me.addrLocField = Value End Set End Property Public Property addrCtry() As String Get Return Me.addrCtryField End Get Set Me.addrCtryField = Value End Set End Property Public Property addrState() As String Get Return Me.addrStateField End Get Set Me.addrStateField = Value End Set End Property Public Property addrZip() As String Get Return Me.addrZipField End Get Set Me.addrZipField = Value End Set End Property Public Property addrTin() As String Get Return Me.addrTinField End Get Set Me.addrTinField = Value End Set End Property Public Property addrEori() As String Get Return Me.addrEoriField End Get Set Me.addrEoriField = Value End Set End Property Public Property partnerRelation() As String Get Return Me.partnerRelationField End Get Set Me.partnerRelationField = Value End Set End Property Public Property addrDistrict() As String Get Return Me.addrDistrictField End Get Set Me.addrDistrictField = Value End Set End Property Public Property addrBranchNo() As String Get Return Me.addrBranchNoField End Get Set Me.addrBranchNoField = Value End Set End Property Public Property email() As String Get Return Me.emailField End Get Set Me.emailField = Value End Set End Property Public Property addrVatNumber() As String Get Return Me.addrVatNumberField End Get Set Me.addrVatNumberField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAddress)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAddress object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAddress object ''' '''string workflow markup to deserialize '''Output TAddress object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddress) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAddress) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAddress Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAddress) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAddress object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAddress object ''' '''string xml file to load and deserialize '''Output TAddress object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAddress) 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 TAddress) 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 TAddress 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 Region End Class Partial Public Class TCustIntra Private vendorVatIdField As String Private statisticalProcedureField As String Private internalReferenceField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property vendorVatId() As String Get Return Me.vendorVatIdField End Get Set Me.vendorVatIdField = Value End Set End Property Public Property statisticalProcedure() As String Get Return Me.statisticalProcedureField End Get Set Me.statisticalProcedureField = Value End Set End Property Public Property internalReference() As String Get Return Me.internalReferenceField End Get Set Me.internalReferenceField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TCustIntra)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TCustIntra object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TCustIntra object ''' '''string workflow markup to deserialize '''Output TCustIntra object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustIntra, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustIntra) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TCustIntra) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TCustIntra Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TCustIntra) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TCustIntra object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TCustIntra object ''' '''string xml file to load and deserialize '''Output TCustIntra object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustIntra, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TCustIntra) 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 TCustIntra) 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 TCustIntra 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 Region End Class Partial Public Class TImportPaymentInfo Private paymentTypeField As String Private paymentDateField As Date Private paymentDateFieldSpecified As Boolean Private paymentBankCodeField As String Private paymentBankBranchCodeField As String Private paymentCurrencyField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property paymentType() As String Get Return Me.paymentTypeField End Get Set Me.paymentTypeField = Value End Set End Property Public Property paymentDate() As Date Get Return Me.paymentDateField End Get Set Me.paymentDateField = Value End Set End Property Public Property paymentDateSpecified() As Boolean Get Return Me.paymentDateFieldSpecified End Get Set Me.paymentDateFieldSpecified = Value End Set End Property Public Property paymentBankCode() As String Get Return Me.paymentBankCodeField End Get Set Me.paymentBankCodeField = Value End Set End Property Public Property paymentBankBranchCode() As String Get Return Me.paymentBankBranchCodeField End Get Set Me.paymentBankBranchCodeField = Value End Set End Property Public Property paymentCurrency() As String Get Return Me.paymentCurrencyField End Get Set Me.paymentCurrencyField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TImportPaymentInfo)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TImportPaymentInfo object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TImportPaymentInfo object ''' '''string workflow markup to deserialize '''Output TImportPaymentInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportPaymentInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportPaymentInfo) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportPaymentInfo) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TImportPaymentInfo Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TImportPaymentInfo) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TImportPaymentInfo object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TImportPaymentInfo object ''' '''string xml file to load and deserialize '''Output TImportPaymentInfo object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportPaymentInfo, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportPaymentInfo) 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 TImportPaymentInfo) 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 TImportPaymentInfo 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 Region End Class Partial Public Class TInsuranceCostsInv Private insAmountField As Decimal Private insAmountFieldSpecified As Boolean Private insCurrencyField As String Private insProRatingField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property insAmount() As Decimal Get Return Me.insAmountField End Get Set Me.insAmountField = Value End Set End Property Public Property insAmountSpecified() As Boolean Get Return Me.insAmountFieldSpecified End Get Set Me.insAmountFieldSpecified = Value End Set End Property Public Property insCurrency() As String Get Return Me.insCurrencyField End Get Set Me.insCurrencyField = Value End Set End Property Public Property insProRating() As String Get Return Me.insProRatingField End Get Set Me.insProRatingField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInsuranceCostsInv)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInsuranceCostsInv object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInsuranceCostsInv object ''' '''string workflow markup to deserialize '''Output TInsuranceCostsInv object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCostsInv, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCostsInv) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCostsInv) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInsuranceCostsInv Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInsuranceCostsInv) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInsuranceCostsInv object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInsuranceCostsInv object ''' '''string xml file to load and deserialize '''Output TInsuranceCostsInv object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInsuranceCostsInv, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCostsInv) 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 TInsuranceCostsInv) 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 TInsuranceCostsInv 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 Region End Class Partial Public Class TFreightCostsInv Private frtAmountField As Decimal Private frtAmountFieldSpecified As Boolean Private frtCurrencyField As String Private frtInternationalField As Decimal Private frtInternationalFieldSpecified As Boolean Private frtEuNationalField As Decimal Private frtEuNationalFieldSpecified As Boolean Private frtInlandField As Decimal Private frtInlandFieldSpecified As Boolean Private frtProRatingField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property frtAmount() As Decimal Get Return Me.frtAmountField End Get Set Me.frtAmountField = Value End Set End Property Public Property frtAmountSpecified() As Boolean Get Return Me.frtAmountFieldSpecified End Get Set Me.frtAmountFieldSpecified = Value End Set End Property Public Property frtCurrency() As String Get Return Me.frtCurrencyField End Get Set Me.frtCurrencyField = Value End Set End Property Public Property frtInternational() As Decimal Get Return Me.frtInternationalField End Get Set Me.frtInternationalField = Value End Set End Property Public Property frtInternationalSpecified() As Boolean Get Return Me.frtInternationalFieldSpecified End Get Set Me.frtInternationalFieldSpecified = Value End Set End Property Public Property frtEuNational() As Decimal Get Return Me.frtEuNationalField End Get Set Me.frtEuNationalField = Value End Set End Property Public Property frtEuNationalSpecified() As Boolean Get Return Me.frtEuNationalFieldSpecified End Get Set Me.frtEuNationalFieldSpecified = Value End Set End Property Public Property frtInland() As Decimal Get Return Me.frtInlandField End Get Set Me.frtInlandField = Value End Set End Property Public Property frtInlandSpecified() As Boolean Get Return Me.frtInlandFieldSpecified End Get Set Me.frtInlandFieldSpecified = Value End Set End Property Public Property frtProRating() As String Get Return Me.frtProRatingField End Get Set Me.frtProRatingField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TFreightCostsInv)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TFreightCostsInv object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TFreightCostsInv object ''' '''string workflow markup to deserialize '''Output TFreightCostsInv object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCostsInv, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCostsInv) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCostsInv) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TFreightCostsInv Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TFreightCostsInv) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TFreightCostsInv object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TFreightCostsInv object ''' '''string xml file to load and deserialize '''Output TFreightCostsInv object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TFreightCostsInv, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCostsInv) 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 TFreightCostsInv) 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 TFreightCostsInv 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 Region End Class Partial Public Class TRebate Private rebAmountField As Decimal Private rebAmountFieldSpecified As Boolean Private rebCurrencyField As String Private rebProRatingField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property rebAmount() As Decimal Get Return Me.rebAmountField End Get Set Me.rebAmountField = Value End Set End Property Public Property rebAmountSpecified() As Boolean Get Return Me.rebAmountFieldSpecified End Get Set Me.rebAmountFieldSpecified = Value End Set End Property Public Property rebCurrency() As String Get Return Me.rebCurrencyField End Get Set Me.rebCurrencyField = Value End Set End Property Public Property rebProRating() As String Get Return Me.rebProRatingField End Get Set Me.rebProRatingField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TRebate)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TRebate object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TRebate object ''' '''string workflow markup to deserialize '''Output TRebate object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRebate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRebate) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TRebate) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TRebate Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TRebate) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TRebate object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TRebate object ''' '''string xml file to load and deserialize '''Output TRebate object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRebate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TRebate) 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 TRebate) 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 TRebate 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 Region End Class Partial Public Class TDelTerm Private codeField As String Private descField As String Private calculationOfFreightCostsField As String Private code2Field As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property desc() As String Get Return Me.descField End Get Set Me.descField = Value End Set End Property Public Property calculationOfFreightCosts() As String Get Return Me.calculationOfFreightCostsField End Get Set Me.calculationOfFreightCostsField = Value End Set End Property Public Property code2() As String Get Return Me.code2Field End Get Set Me.code2Field = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDelTerm)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDelTerm object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDelTerm object ''' '''string workflow markup to deserialize '''Output TDelTerm object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDelTerm, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDelTerm) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDelTerm) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDelTerm Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDelTerm) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDelTerm object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDelTerm object ''' '''string xml file to load and deserialize '''Output TDelTerm object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDelTerm, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDelTerm) 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 TDelTerm) 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 TDelTerm 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 Region End Class Partial Public Class TInvoiceHead Private invoiceTypeField As String Private contractDateField As Date Private contractDateFieldSpecified As Boolean Private countryOfTradeField As String Private supplierField As TAddress Private grossWeightField As Decimal Private grossWeightFieldSpecified As Boolean Private netWeightField As Decimal Private netWeightFieldSpecified As Boolean Private invoiceValueField As Decimal Private invoiceValueFieldSpecified As Boolean Private invoiceCurrencyField As String Private deliveryTermsField As TDelTerm Private rebateField As TRebate Private discountField As Decimal Private discountFieldSpecified As Boolean Private additionalCostField As List(Of TAddCosts) Private textField As String Private text2Field As String Private freightField As TFreightCostsInv Private insuranceField As TInsuranceCostsInv Private referenceNumberField As String Private transportNumberField As String Private transportTypeField As String Private acceptanceDateField As Date Private acceptanceDateFieldSpecified As Boolean Private disposalDateField As Date Private disposalDateFieldSpecified As Boolean Private timeLimitField As Date Private timeLimitFieldSpecified As Boolean Private registrationNumberField As String Private sealNumberField As String Private billOfLadingField As String Private packageCountField As Decimal Private packageCountFieldSpecified As Boolean Private packageTypeField As String Private buyerField As String Private consigneeField As String Private paymentInformationField As TImportPaymentInfo Private customerFieldsField As TCustomerFields Private sellerField As TAddress Private exchangeRateField As Decimal Private exchangeRateFieldSpecified As Boolean Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private containerInfoField As TContainer Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.containerInfoField = New TContainer() Me.sellerField = New TAddress() Me.customerFieldsField = New TCustomerFields() Me.paymentInformationField = New TImportPaymentInfo() Me.insuranceField = New TInsuranceCostsInv() Me.freightField = New TFreightCostsInv() Me.additionalCostField = New List(Of TAddCosts)() Me.rebateField = New TRebate() Me.deliveryTermsField = New TDelTerm() Me.supplierField = New TAddress() End Sub Public Property invoiceType() As String Get Return Me.invoiceTypeField End Get Set Me.invoiceTypeField = Value End Set End Property Public Property contractDate() As Date Get Return Me.contractDateField End Get Set Me.contractDateField = Value End Set End Property Public Property contractDateSpecified() As Boolean Get Return Me.contractDateFieldSpecified End Get Set Me.contractDateFieldSpecified = Value End Set End Property Public Property countryOfTrade() As String Get Return Me.countryOfTradeField End Get Set Me.countryOfTradeField = Value End Set End Property Public Property Supplier() As TAddress Get Return Me.supplierField End Get Set Me.supplierField = Value End Set End Property Public Property grossWeight() As Decimal Get Return Me.grossWeightField End Get Set Me.grossWeightField = Value End Set End Property Public Property grossWeightSpecified() As Boolean Get Return Me.grossWeightFieldSpecified End Get Set Me.grossWeightFieldSpecified = Value End Set End Property Public Property netWeight() As Decimal Get Return Me.netWeightField End Get Set Me.netWeightField = Value End Set End Property Public Property netWeightSpecified() As Boolean Get Return Me.netWeightFieldSpecified End Get Set Me.netWeightFieldSpecified = Value End Set End Property Public Property invoiceValue() As Decimal Get Return Me.invoiceValueField End Get Set Me.invoiceValueField = Value End Set End Property Public Property invoiceValueSpecified() As Boolean Get Return Me.invoiceValueFieldSpecified End Get Set Me.invoiceValueFieldSpecified = Value End Set End Property Public Property invoiceCurrency() As String Get Return Me.invoiceCurrencyField End Get Set Me.invoiceCurrencyField = Value End Set End Property Public Property deliveryTerms() As TDelTerm Get Return Me.deliveryTermsField End Get Set Me.deliveryTermsField = Value End Set End Property Public Property Rebate() As TRebate Get Return Me.rebateField End Get Set Me.rebateField = Value End Set End Property Public Property discount() As Decimal Get Return Me.discountField End Get Set Me.discountField = Value End Set End Property Public Property discountSpecified() As Boolean Get Return Me.discountFieldSpecified End Get Set Me.discountFieldSpecified = Value End Set End Property Public Property AdditionalCost() As List(Of TAddCosts) Get Return Me.additionalCostField End Get Set Me.additionalCostField = Value End Set End Property Public Property text() As String Get Return Me.textField End Get Set Me.textField = Value End Set End Property Public Property text2() As String Get Return Me.text2Field End Get Set Me.text2Field = Value End Set End Property Public Property Freight() As TFreightCostsInv Get Return Me.freightField End Get Set Me.freightField = Value End Set End Property Public Property Insurance() As TInsuranceCostsInv Get Return Me.insuranceField End Get Set Me.insuranceField = Value End Set End Property Public Property referenceNumber() As String Get Return Me.referenceNumberField End Get Set Me.referenceNumberField = Value End Set End Property Public Property transportNumber() As String Get Return Me.transportNumberField End Get Set Me.transportNumberField = Value End Set End Property Public Property transportType() As String Get Return Me.transportTypeField End Get Set Me.transportTypeField = Value End Set End Property Public Property acceptanceDate() As Date Get Return Me.acceptanceDateField End Get Set Me.acceptanceDateField = Value End Set End Property Public Property acceptanceDateSpecified() As Boolean Get Return Me.acceptanceDateFieldSpecified End Get Set Me.acceptanceDateFieldSpecified = Value End Set End Property Public Property disposalDate() As Date Get Return Me.disposalDateField End Get Set Me.disposalDateField = Value End Set End Property Public Property disposalDateSpecified() As Boolean Get Return Me.disposalDateFieldSpecified End Get Set Me.disposalDateFieldSpecified = Value End Set End Property Public Property timeLimit() As Date Get Return Me.timeLimitField End Get Set Me.timeLimitField = Value End Set End Property Public Property timeLimitSpecified() As Boolean Get Return Me.timeLimitFieldSpecified End Get Set Me.timeLimitFieldSpecified = Value End Set End Property Public Property registrationNumber() As String Get Return Me.registrationNumberField End Get Set Me.registrationNumberField = Value End Set End Property Public Property sealNumber() As String Get Return Me.sealNumberField End Get Set Me.sealNumberField = Value End Set End Property Public Property billOfLading() As String Get Return Me.billOfLadingField End Get Set Me.billOfLadingField = Value End Set End Property Public Property packageCount() As Decimal Get Return Me.packageCountField End Get Set Me.packageCountField = Value End Set End Property Public Property packageCountSpecified() As Boolean Get Return Me.packageCountFieldSpecified End Get Set Me.packageCountFieldSpecified = Value End Set End Property Public Property packageType() As String Get Return Me.packageTypeField End Get Set Me.packageTypeField = Value End Set End Property Public Property buyer() As String Get Return Me.buyerField End Get Set Me.buyerField = Value End Set End Property Public Property consignee() As String Get Return Me.consigneeField End Get Set Me.consigneeField = Value End Set End Property Public Property PaymentInformation() As TImportPaymentInfo Get Return Me.paymentInformationField End Get Set Me.paymentInformationField = Value End Set End Property Public Property CustomerFields() As TCustomerFields Get Return Me.customerFieldsField End Get Set Me.customerFieldsField = Value End Set End Property Public Property seller() As TAddress Get Return Me.sellerField End Get Set Me.sellerField = Value End Set End Property Public Property exchangeRate() As Decimal Get Return Me.exchangeRateField End Get Set Me.exchangeRateField = Value End Set End Property Public Property exchangeRateSpecified() As Boolean Get Return Me.exchangeRateFieldSpecified End Get Set Me.exchangeRateFieldSpecified = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Public Property ContainerInfo() As TContainer Get Return Me.containerInfoField End Get Set Me.containerInfoField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInvoiceHead)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInvoiceHead object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInvoiceHead object ''' '''string workflow markup to deserialize '''Output TInvoiceHead object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoiceHead, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoiceHead) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoiceHead) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInvoiceHead Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInvoiceHead) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInvoiceHead object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInvoiceHead object ''' '''string xml file to load and deserialize '''Output TInvoiceHead object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceHead, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoiceHead) 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 TInvoiceHead) 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 TInvoiceHead 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 Region End Class Partial Public Class TContainer Private containerIndicatorField As String Private containerNumberField As String Private containerTypeField As String Private containerLCLIndicatorField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property containerIndicator() As String Get Return Me.containerIndicatorField End Get Set Me.containerIndicatorField = Value End Set End Property Public Property containerNumber() As String Get Return Me.containerNumberField End Get Set Me.containerNumberField = Value End Set End Property Public Property containerType() As String Get Return Me.containerTypeField End Get Set Me.containerTypeField = Value End Set End Property Public Property containerLCLIndicator() As String Get Return Me.containerLCLIndicatorField End Get Set Me.containerLCLIndicatorField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TContainer)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TContainer object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TContainer object ''' '''string workflow markup to deserialize '''Output TContainer object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TContainer) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TContainer) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TContainer Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TContainer) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TContainer object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TContainer object ''' '''string xml file to load and deserialize '''Output TContainer object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TContainer) 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 TContainer) 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 TContainer 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 Region End Class Partial Public Class TInvoice Private invoiceNumberField As String Private invoiceVersionField As String Private invoiceDateField As Date Private invoiceDateFieldSpecified As Boolean Private invoiceHeadField As TInvoiceHead Private attributesField As List(Of TAttribute) Private documentsField As List(Of TDocument) Private partnersField As List(Of TPartner) Private atlasCompletionSumDsField As List(Of TAtlasCompSumDEntry) Private intraField As TCustIntra Private invoiceLinesField As List(Of TInvoiceLine) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.invoiceLinesField = New List(Of TInvoiceLine)() Me.intraField = New TCustIntra() Me.atlasCompletionSumDsField = New List(Of TAtlasCompSumDEntry)() Me.partnersField = New List(Of TPartner)() Me.documentsField = New List(Of TDocument)() Me.attributesField = New List(Of TAttribute)() Me.invoiceHeadField = New TInvoiceHead() End Sub Public Property invoiceNumber() As String Get Return Me.invoiceNumberField End Get Set Me.invoiceNumberField = Value End Set End Property Public Property invoiceVersion() As String Get Return Me.invoiceVersionField End Get Set Me.invoiceVersionField = Value End Set End Property Public Property invoiceDate() As Date Get Return Me.invoiceDateField End Get Set Me.invoiceDateField = Value End Set End Property Public Property invoiceDateSpecified() As Boolean Get Return Me.invoiceDateFieldSpecified End Get Set Me.invoiceDateFieldSpecified = Value End Set End Property Public Property InvoiceHead() As TInvoiceHead Get Return Me.invoiceHeadField End Get Set Me.invoiceHeadField = Value End Set End Property Public Property Attributes() As List(Of TAttribute) Get Return Me.attributesField End Get Set Me.attributesField = Value End Set End Property Public Property Documents() As List(Of TDocument) Get Return Me.documentsField End Get Set Me.documentsField = Value End Set End Property Public Property Partners() As List(Of TPartner) Get Return Me.partnersField End Get Set Me.partnersField = Value End Set End Property Public Property AtlasCompletionSumDs() As List(Of TAtlasCompSumDEntry) Get Return Me.atlasCompletionSumDsField End Get Set Me.atlasCompletionSumDsField = Value End Set End Property Public Property Intra() As TCustIntra Get Return Me.intraField End Get Set Me.intraField = Value End Set End Property Public Property InvoiceLines() As List(Of TInvoiceLine) Get Return Me.invoiceLinesField End Get Set Me.invoiceLinesField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInvoice)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInvoice object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInvoice object ''' '''string workflow markup to deserialize '''Output TInvoice object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoice) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInvoice) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInvoice Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInvoice) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInvoice object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInvoice object ''' '''string xml file to load and deserialize '''Output TInvoice object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInvoice) 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 TInvoice) 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 TInvoice 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 Region End Class Partial Public Class TAtlasCompSumDEntry Private idTypeField As String Private quantityField As Long Private quantityFieldSpecified As Boolean Private packageTypeField As String Private registrationNumberField As String Private lineNumberField As Long Private lineNumberFieldSpecified As Boolean Private depositorField As String Private spoTypeField As String Private spoField As String Private creationUserField As String Private creationDateField As Date Private creationDateFieldSpecified As Boolean Private modificationUserField As String Private modificationDateField As Date Private modificationDateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property idType() As String Get Return Me.idTypeField End Get Set Me.idTypeField = Value End Set End Property Public Property quantity() As Long Get Return Me.quantityField End Get Set Me.quantityField = Value End Set End Property Public Property quantitySpecified() As Boolean Get Return Me.quantityFieldSpecified End Get Set Me.quantityFieldSpecified = Value End Set End Property Public Property packageType() As String Get Return Me.packageTypeField End Get Set Me.packageTypeField = Value End Set End Property Public Property registrationNumber() As String Get Return Me.registrationNumberField End Get Set Me.registrationNumberField = Value End Set End Property Public Property lineNumber() As Long Get Return Me.lineNumberField End Get Set Me.lineNumberField = Value End Set End Property Public Property lineNumberSpecified() As Boolean Get Return Me.lineNumberFieldSpecified End Get Set Me.lineNumberFieldSpecified = Value End Set End Property Public Property depositor() As String Get Return Me.depositorField End Get Set Me.depositorField = Value End Set End Property Public Property spoType() As String Get Return Me.spoTypeField End Get Set Me.spoTypeField = Value End Set End Property Public Property spo() As String Get Return Me.spoField End Get Set Me.spoField = Value End Set End Property Public Property creationUser() As String Get Return Me.creationUserField End Get Set Me.creationUserField = Value End Set End Property Public Property creationDate() As Date Get Return Me.creationDateField End Get Set Me.creationDateField = Value End Set End Property Public Property creationDateSpecified() As Boolean Get Return Me.creationDateFieldSpecified End Get Set Me.creationDateFieldSpecified = Value End Set End Property Public Property modificationUser() As String Get Return Me.modificationUserField End Get Set Me.modificationUserField = Value End Set End Property Public Property modificationDate() As Date Get Return Me.modificationDateField End Get Set Me.modificationDateField = Value End Set End Property Public Property modificationDateSpecified() As Boolean Get Return Me.modificationDateFieldSpecified End Get Set Me.modificationDateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAtlasCompSumDEntry)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAtlasCompSumDEntry object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAtlasCompSumDEntry object ''' '''string workflow markup to deserialize '''Output TAtlasCompSumDEntry object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAtlasCompSumDEntry, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAtlasCompSumDEntry) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAtlasCompSumDEntry) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAtlasCompSumDEntry Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAtlasCompSumDEntry) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAtlasCompSumDEntry object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAtlasCompSumDEntry object ''' '''string xml file to load and deserialize '''Output TAtlasCompSumDEntry object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAtlasCompSumDEntry, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAtlasCompSumDEntry) 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 TAtlasCompSumDEntry) 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 TAtlasCompSumDEntry 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 Region End Class Partial Public Class TGuarantee Private guaranteeNumberField As Long Private guaranteeNumberFieldSpecified As Boolean Private guaranteeCodeField As String Private guaranteeTypeField As String Private guaranteeAmountField As Decimal Private guaranteeAmountFieldSpecified As Boolean Private guaranteeCurrencyField As String Private guaranteeReferenceField As String Private guaranteeCustomsOfficeField As String Private localBaseField As Decimal Private localBaseFieldSpecified As Boolean Private factoringBaseField As String Private customsRateField As Decimal Private customsRateFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property guaranteeNumber() As Long Get Return Me.guaranteeNumberField End Get Set Me.guaranteeNumberField = Value End Set End Property Public Property guaranteeNumberSpecified() As Boolean Get Return Me.guaranteeNumberFieldSpecified End Get Set Me.guaranteeNumberFieldSpecified = Value End Set End Property Public Property guaranteeCode() As String Get Return Me.guaranteeCodeField End Get Set Me.guaranteeCodeField = Value End Set End Property Public Property guaranteeType() As String Get Return Me.guaranteeTypeField End Get Set Me.guaranteeTypeField = Value End Set End Property Public Property guaranteeAmount() As Decimal Get Return Me.guaranteeAmountField End Get Set Me.guaranteeAmountField = Value End Set End Property Public Property guaranteeAmountSpecified() As Boolean Get Return Me.guaranteeAmountFieldSpecified End Get Set Me.guaranteeAmountFieldSpecified = Value End Set End Property Public Property guaranteeCurrency() As String Get Return Me.guaranteeCurrencyField End Get Set Me.guaranteeCurrencyField = Value End Set End Property Public Property guaranteeReference() As String Get Return Me.guaranteeReferenceField End Get Set Me.guaranteeReferenceField = Value End Set End Property Public Property guaranteeCustomsOffice() As String Get Return Me.guaranteeCustomsOfficeField End Get Set Me.guaranteeCustomsOfficeField = Value End Set End Property Public Property localBase() As Decimal Get Return Me.localBaseField End Get Set Me.localBaseField = Value End Set End Property Public Property localBaseSpecified() As Boolean Get Return Me.localBaseFieldSpecified End Get Set Me.localBaseFieldSpecified = Value End Set End Property Public Property factoringBase() As String Get Return Me.factoringBaseField End Get Set Me.factoringBaseField = Value End Set End Property Public Property customsRate() As Decimal Get Return Me.customsRateField End Get Set Me.customsRateField = Value End Set End Property Public Property customsRateSpecified() As Boolean Get Return Me.customsRateFieldSpecified End Get Set Me.customsRateFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TGuarantee)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TGuarantee object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TGuarantee object ''' '''string workflow markup to deserialize '''Output TGuarantee object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TGuarantee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TGuarantee) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TGuarantee) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TGuarantee Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TGuarantee) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TGuarantee object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TGuarantee object ''' '''string xml file to load and deserialize '''Output TGuarantee object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TGuarantee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TGuarantee) 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 TGuarantee) 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 TGuarantee 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 Region End Class Partial Public Class TGuarantees Private guaranteeField As List(Of TGuarantee) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.guaranteeField = New List(Of TGuarantee)() End Sub Public Property Guarantee() As List(Of TGuarantee) Get Return Me.guaranteeField End Get Set Me.guaranteeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TGuarantees)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TGuarantees object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TGuarantees object ''' '''string workflow markup to deserialize '''Output TGuarantees object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TGuarantees, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TGuarantees) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TGuarantees) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TGuarantees Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TGuarantees) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TGuarantees object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TGuarantees object ''' '''string xml file to load and deserialize '''Output TGuarantees object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TGuarantees, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TGuarantees) 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 TGuarantees) 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 TGuarantees 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 Region End Class Partial Public Class TDeferAcc Private accountNumber1Field As String Private accountNumber2Field As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property accountNumber1() As String Get Return Me.accountNumber1Field End Get Set Me.accountNumber1Field = Value End Set End Property Public Property accountNumber2() As String Get Return Me.accountNumber2Field End Get Set Me.accountNumber2Field = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDeferAcc)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDeferAcc object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDeferAcc object ''' '''string workflow markup to deserialize '''Output TDeferAcc object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeferAcc, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeferAcc) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeferAcc) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDeferAcc Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDeferAcc) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDeferAcc object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDeferAcc object ''' '''string xml file to load and deserialize '''Output TDeferAcc object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDeferAcc, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeferAcc) 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 TDeferAcc) 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 TDeferAcc 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 Region End Class Partial Public Class TDeferAccs Private defermentAccountField As TDeferAcc Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.defermentAccountField = New TDeferAcc() End Sub Public Property DefermentAccount() As TDeferAcc Get Return Me.defermentAccountField End Get Set Me.defermentAccountField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TDeferAccs)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TDeferAccs object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TDeferAccs object ''' '''string workflow markup to deserialize '''Output TDeferAccs object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeferAccs, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeferAccs) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TDeferAccs) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TDeferAccs Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TDeferAccs) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TDeferAccs object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TDeferAccs object ''' '''string xml file to load and deserialize '''Output TDeferAccs object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDeferAccs, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TDeferAccs) 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 TDeferAccs) 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 TDeferAccs 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 Region End Class Partial Public Class TAuthHolder Private typeCodeField As String Private identifierField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property typeCode() As String Get Return Me.typeCodeField End Get Set Me.typeCodeField = Value End Set End Property Public Property identifier() As String Get Return Me.identifierField End Get Set Me.identifierField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAuthHolder)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAuthHolder object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAuthHolder object ''' '''string workflow markup to deserialize '''Output TAuthHolder object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAuthHolder, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAuthHolder) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAuthHolder) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAuthHolder Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAuthHolder) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAuthHolder object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAuthHolder object ''' '''string xml file to load and deserialize '''Output TAuthHolder object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAuthHolder, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAuthHolder) 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 TAuthHolder) 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 TAuthHolder 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 Region End Class Partial Public Class TAuthHolders Private authorisationHolderField As List(Of TAuthHolder) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.authorisationHolderField = New List(Of TAuthHolder)() End Sub Public Property AuthorisationHolder() As List(Of TAuthHolder) Get Return Me.authorisationHolderField End Get Set Me.authorisationHolderField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TAuthHolders)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TAuthHolders object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TAuthHolders object ''' '''string workflow markup to deserialize '''Output TAuthHolders object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAuthHolders, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAuthHolders) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TAuthHolders) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TAuthHolders Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TAuthHolders) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TAuthHolders object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TAuthHolders object ''' '''string xml file to load and deserialize '''Output TAuthHolders object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAuthHolders, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TAuthHolders) 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 TAuthHolders) 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 TAuthHolders 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 Region End Class Partial Public Class TInsuranceCosts Private insAmountField As Decimal Private insAmountFieldSpecified As Boolean Private insCurrencyField As String Private insProRatingField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property insAmount() As Decimal Get Return Me.insAmountField End Get Set Me.insAmountField = Value End Set End Property Public Property insAmountSpecified() As Boolean Get Return Me.insAmountFieldSpecified End Get Set Me.insAmountFieldSpecified = Value End Set End Property Public Property insCurrency() As String Get Return Me.insCurrencyField End Get Set Me.insCurrencyField = Value End Set End Property Public Property insProRating() As String Get Return Me.insProRatingField End Get Set Me.insProRatingField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TInsuranceCosts)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TInsuranceCosts object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TInsuranceCosts object ''' '''string workflow markup to deserialize '''Output TInsuranceCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCosts) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TInsuranceCosts) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TInsuranceCosts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TInsuranceCosts) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TInsuranceCosts object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TInsuranceCosts object ''' '''string xml file to load and deserialize '''Output TInsuranceCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInsuranceCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TInsuranceCosts) 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 TInsuranceCosts) 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 TInsuranceCosts 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 Region End Class Partial Public Class TFreightCosts Private frtAmountField As Decimal Private frtAmountFieldSpecified As Boolean Private frtCurrencyField As String Private frtInternationalField As Decimal Private frtInternationalFieldSpecified As Boolean Private frtEuNationalField As Decimal Private frtEuNationalFieldSpecified As Boolean Private frtInlandField As Decimal Private frtInlandFieldSpecified As Boolean Private frtProRatingField As String Private frtInternationalAbsField As Decimal Private frtInternationalAbsFieldSpecified As Boolean Private frtIntCurrencyField As String Private frtCommunityAbsField As Decimal Private frtCommunityAbsFieldSpecified As Boolean Private frtCommunityCurrencyField As String Private frtNatAbsField As Decimal Private frtNatAbsFieldSpecified As Boolean Private frtNatCurrencyField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property frtAmount() As Decimal Get Return Me.frtAmountField End Get Set Me.frtAmountField = Value End Set End Property Public Property frtAmountSpecified() As Boolean Get Return Me.frtAmountFieldSpecified End Get Set Me.frtAmountFieldSpecified = Value End Set End Property Public Property frtCurrency() As String Get Return Me.frtCurrencyField End Get Set Me.frtCurrencyField = Value End Set End Property Public Property frtInternational() As Decimal Get Return Me.frtInternationalField End Get Set Me.frtInternationalField = Value End Set End Property Public Property frtInternationalSpecified() As Boolean Get Return Me.frtInternationalFieldSpecified End Get Set Me.frtInternationalFieldSpecified = Value End Set End Property Public Property frtEuNational() As Decimal Get Return Me.frtEuNationalField End Get Set Me.frtEuNationalField = Value End Set End Property Public Property frtEuNationalSpecified() As Boolean Get Return Me.frtEuNationalFieldSpecified End Get Set Me.frtEuNationalFieldSpecified = Value End Set End Property Public Property frtInland() As Decimal Get Return Me.frtInlandField End Get Set Me.frtInlandField = Value End Set End Property Public Property frtInlandSpecified() As Boolean Get Return Me.frtInlandFieldSpecified End Get Set Me.frtInlandFieldSpecified = Value End Set End Property Public Property frtProRating() As String Get Return Me.frtProRatingField End Get Set Me.frtProRatingField = Value End Set End Property Public Property frtInternationalAbs() As Decimal Get Return Me.frtInternationalAbsField End Get Set Me.frtInternationalAbsField = Value End Set End Property Public Property frtInternationalAbsSpecified() As Boolean Get Return Me.frtInternationalAbsFieldSpecified End Get Set Me.frtInternationalAbsFieldSpecified = Value End Set End Property Public Property frtIntCurrency() As String Get Return Me.frtIntCurrencyField End Get Set Me.frtIntCurrencyField = Value End Set End Property Public Property frtCommunityAbs() As Decimal Get Return Me.frtCommunityAbsField End Get Set Me.frtCommunityAbsField = Value End Set End Property Public Property frtCommunityAbsSpecified() As Boolean Get Return Me.frtCommunityAbsFieldSpecified End Get Set Me.frtCommunityAbsFieldSpecified = Value End Set End Property Public Property frtCommunityCurrency() As String Get Return Me.frtCommunityCurrencyField End Get Set Me.frtCommunityCurrencyField = Value End Set End Property Public Property frtNatAbs() As Decimal Get Return Me.frtNatAbsField End Get Set Me.frtNatAbsField = Value End Set End Property Public Property frtNatAbsSpecified() As Boolean Get Return Me.frtNatAbsFieldSpecified End Get Set Me.frtNatAbsFieldSpecified = Value End Set End Property Public Property frtNatCurrency() As String Get Return Me.frtNatCurrencyField End Get Set Me.frtNatCurrencyField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TFreightCosts)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TFreightCosts object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TFreightCosts object ''' '''string workflow markup to deserialize '''Output TFreightCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCosts) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TFreightCosts) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TFreightCosts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TFreightCosts) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TFreightCosts object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TFreightCosts object ''' '''string xml file to load and deserialize '''Output TFreightCosts object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TFreightCosts) 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 TFreightCosts) 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 TFreightCosts 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 Region End Class Partial Public Class TMot Private motModeField As String Private meansOfTransportField As String Private motCountryField As String Private motVehicleField As String Private meansOfTransportDescriptionField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property motMode() As String Get Return Me.motModeField End Get Set Me.motModeField = Value End Set End Property Public Property meansOfTransport() As String Get Return Me.meansOfTransportField End Get Set Me.meansOfTransportField = Value End Set End Property Public Property motCountry() As String Get Return Me.motCountryField End Get Set Me.motCountryField = Value End Set End Property Public Property motVehicle() As String Get Return Me.motVehicleField End Get Set Me.motVehicleField = Value End Set End Property Public Property meansOfTransportDescription() As String Get Return Me.meansOfTransportDescriptionField End Get Set Me.meansOfTransportDescriptionField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TMot)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TMot object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TMot object ''' '''string workflow markup to deserialize '''Output TMot object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMot, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMot) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMot) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TMot Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TMot) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TMot object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TMot object ''' '''string xml file to load and deserialize '''Output TMot object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMot, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMot) 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 TMot) 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 TMot 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 Region End Class Partial Public Class InsertImportShipment Private importShipmentMessageField As TImportShipMsg Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.importShipmentMessageField = New TImportShipMsg() End Sub Public Property ImportShipmentMessage() As TImportShipMsg Get Return Me.importShipmentMessageField End Get Set Me.importShipmentMessageField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(InsertImportShipment)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current InsertImportShipment object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an InsertImportShipment object ''' '''string workflow markup to deserialize '''Output InsertImportShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As InsertImportShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, InsertImportShipment) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As InsertImportShipment) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As InsertImportShipment Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), InsertImportShipment) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current InsertImportShipment object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an InsertImportShipment object ''' '''string xml file to load and deserialize '''Output InsertImportShipment object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InsertImportShipment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, InsertImportShipment) 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 InsertImportShipment) 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 InsertImportShipment 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 Region End Class Partial Public Class TImportShipMsg Private metadataField As TMicMetadata Private messageDetailField As TMessageDetail Private importShipmentField As ImportShipment Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.importShipmentField = New ImportShipment() Me.messageDetailField = New TMessageDetail() Me.metadataField = New TMicMetadata() End Sub Public Property Metadata() As TMicMetadata Get Return Me.metadataField End Get Set Me.metadataField = Value End Set End Property Public Property MessageDetail() As TMessageDetail Get Return Me.messageDetailField End Get Set Me.messageDetailField = Value End Set End Property Public Property ImportShipment() As ImportShipment Get Return Me.importShipmentField End Get Set Me.importShipmentField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TImportShipMsg)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TImportShipMsg object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TImportShipMsg object ''' '''string workflow markup to deserialize '''Output TImportShipMsg object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportShipMsg, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportShipMsg) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TImportShipMsg) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TImportShipMsg Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TImportShipMsg) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TImportShipMsg object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TImportShipMsg object ''' '''string xml file to load and deserialize '''Output TImportShipMsg object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportShipMsg, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TImportShipMsg) 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 TImportShipMsg) 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 TImportShipMsg 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 Region End Class Partial Public Class TMicMetadata Private connectionIdField As String Private partnerIdField As String Private dateTimeField As Date Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property connectionId() As String Get Return Me.connectionIdField End Get Set Me.connectionIdField = Value End Set End Property Public Property partnerId() As String Get Return Me.partnerIdField End Get Set Me.partnerIdField = Value End Set End Property Public Property dateTime() As Date Get Return Me.dateTimeField End Get Set Me.dateTimeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TMicMetadata)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TMicMetadata object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TMicMetadata object ''' '''string workflow markup to deserialize '''Output TMicMetadata object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMicMetadata, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMicMetadata) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMicMetadata) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TMicMetadata Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TMicMetadata) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TMicMetadata object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TMicMetadata object ''' '''string xml file to load and deserialize '''Output TMicMetadata object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMicMetadata, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMicMetadata) 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 TMicMetadata) 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 TMicMetadata 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 Region End Class Partial Public Class TMessageDetail Private messageIdField As String Private partyIdField As String Private transactionIdField As String Private sequenceNumField As String Private actionCodeField As TActionCode Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.actionCodeField = New TActionCode() End Sub Public Property messageId() As String Get Return Me.messageIdField End Get Set Me.messageIdField = Value End Set End Property Public Property partyId() As String Get Return Me.partyIdField End Get Set Me.partyIdField = Value End Set End Property Public Property transactionId() As String Get Return Me.transactionIdField End Get Set Me.transactionIdField = Value End Set End Property Public Property sequenceNum() As String Get Return Me.sequenceNumField End Get Set Me.sequenceNumField = Value End Set End Property Public Property ActionCode() As TActionCode Get Return Me.actionCodeField End Get Set Me.actionCodeField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TMessageDetail)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TMessageDetail object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TMessageDetail object ''' '''string workflow markup to deserialize '''Output TMessageDetail object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMessageDetail, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMessageDetail) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMessageDetail) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TMessageDetail Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TMessageDetail) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TMessageDetail object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TMessageDetail object ''' '''string xml file to load and deserialize '''Output TMessageDetail object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMessageDetail, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMessageDetail) 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 TMessageDetail) 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 TMessageDetail 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 Region End Class Partial Public Class TActionCode Private codeField As String Private parameterField As List(Of TActionCodeParameter) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.parameterField = New List(Of TActionCodeParameter)() End Sub Public Property code() As String Get Return Me.codeField End Get Set Me.codeField = Value End Set End Property Public Property parameter() As List(Of TActionCodeParameter) Get Return Me.parameterField End Get Set Me.parameterField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TActionCode)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TActionCode object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TActionCode object ''' '''string workflow markup to deserialize '''Output TActionCode object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TActionCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TActionCode) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TActionCode) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TActionCode Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TActionCode) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TActionCode object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TActionCode object ''' '''string xml file to load and deserialize '''Output TActionCode object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TActionCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TActionCode) 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 TActionCode) 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 TActionCode 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 Region End Class Partial Public Class TActionCodeParameter Private keyField As String Private valueField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property key() As String Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As String Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TActionCodeParameter)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TActionCodeParameter object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TActionCodeParameter object ''' '''string workflow markup to deserialize '''Output TActionCodeParameter object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TActionCodeParameter, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TActionCodeParameter) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TActionCodeParameter) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TActionCodeParameter Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TActionCodeParameter) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TActionCodeParameter object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TActionCodeParameter object ''' '''string xml file to load and deserialize '''Output TActionCodeParameter object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TActionCodeParameter, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TActionCodeParameter) 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 TActionCodeParameter) 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 TActionCodeParameter 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 Region End Class Partial Public Class TStatusResponse Private statusField As TStatus Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.statusField = New TStatus() End Sub Public Property Status() As TStatus Get Return Me.statusField End Get Set Me.statusField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TStatusResponse)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TStatusResponse object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TStatusResponse object ''' '''string workflow markup to deserialize '''Output TStatusResponse object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TStatusResponse, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TStatusResponse) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TStatusResponse) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TStatusResponse Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TStatusResponse) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TStatusResponse object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TStatusResponse object ''' '''string xml file to load and deserialize '''Output TStatusResponse object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TStatusResponse, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TStatusResponse) 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 TStatusResponse) 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 TStatusResponse 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 Region End Class Partial Public Class TStatus Private statusField As TStatusStatus Private itemField As Object Private itemElementNameField As ItemChoiceType Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property status() As TStatusStatus Get Return Me.statusField End Get Set Me.statusField = Value End Set End Property Public Property Item() As Object Get Return Me.itemField End Get Set Me.itemField = Value End Set End Property Public Property ItemElementName() As ItemChoiceType Get Return Me.itemElementNameField End Get Set Me.itemElementNameField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TStatus)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TStatus object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TStatus object ''' '''string workflow markup to deserialize '''Output TStatus object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TStatus, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TStatus) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TStatus) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TStatus Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TStatus) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TStatus object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TStatus object ''' '''string xml file to load and deserialize '''Output TStatus object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TStatus, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TStatus) 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 TStatus) 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 TStatus 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 Region End Class Public Enum TStatusStatus ''' OK ''' [ERROR] ''' WARNING End Enum Partial Public Class ErrorMessages Private errorMessageField As List(Of TErrorMessageType) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.errorMessageField = New List(Of TErrorMessageType)() End Sub Public Property ErrorMessage() As List(Of TErrorMessageType) Get Return Me.errorMessageField End Get Set Me.errorMessageField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ErrorMessages)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current ErrorMessages object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an ErrorMessages object ''' '''string workflow markup to deserialize '''Output ErrorMessages object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ErrorMessages, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErrorMessages) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ErrorMessages) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As ErrorMessages Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ErrorMessages) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current ErrorMessages object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an ErrorMessages object ''' '''string xml file to load and deserialize '''Output ErrorMessages object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorMessages, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ErrorMessages) 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 ErrorMessages) 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 ErrorMessages 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 Region End Class Partial Public Class TErrorMessageType Private moduleField As String Private processField As String Private errorCodeField As String Private errorDescField As String Private referenceField As TReference Private detailsField As TErrorDetail Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.detailsField = New TErrorDetail() Me.referenceField = New TReference() End Sub Public Property [module]() As String Get Return Me.moduleField End Get Set Me.moduleField = Value End Set End Property Public Property process() As String Get Return Me.processField End Get Set Me.processField = Value End Set End Property Public Property errorCode() As String Get Return Me.errorCodeField End Get Set Me.errorCodeField = Value End Set End Property Public Property errorDesc() As String Get Return Me.errorDescField End Get Set Me.errorDescField = Value End Set End Property Public Property Reference() As TReference Get Return Me.referenceField End Get Set Me.referenceField = Value End Set End Property Public Property Details() As TErrorDetail Get Return Me.detailsField End Get Set Me.detailsField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TErrorMessageType)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TErrorMessageType object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TErrorMessageType object ''' '''string workflow markup to deserialize '''Output TErrorMessageType object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorMessageType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorMessageType) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorMessageType) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TErrorMessageType Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TErrorMessageType) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TErrorMessageType object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TErrorMessageType object ''' '''string xml file to load and deserialize '''Output TErrorMessageType object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TErrorMessageType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorMessageType) 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 TErrorMessageType) 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 TErrorMessageType 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 Region End Class Partial Public Class TReference Private companyField As String Private plantField As String Private correlationIdField As String Private referenceTypeField As String Private referenceSidField As Long Private referenceSidFieldSpecified As Boolean Private userField As String Private partnerIdField As String Private routeIdField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property company() As String Get Return Me.companyField End Get Set Me.companyField = Value End Set End Property Public Property plant() As String Get Return Me.plantField End Get Set Me.plantField = Value End Set End Property Public Property correlationId() As String Get Return Me.correlationIdField End Get Set Me.correlationIdField = Value End Set End Property Public Property referenceType() As String Get Return Me.referenceTypeField End Get Set Me.referenceTypeField = Value End Set End Property Public Property referenceSid() As Long Get Return Me.referenceSidField End Get Set Me.referenceSidField = Value End Set End Property Public Property referenceSidSpecified() As Boolean Get Return Me.referenceSidFieldSpecified End Get Set Me.referenceSidFieldSpecified = Value End Set End Property Public Property user() As String Get Return Me.userField End Get Set Me.userField = Value End Set End Property Public Property partnerId() As String Get Return Me.partnerIdField End Get Set Me.partnerIdField = Value End Set End Property Public Property routeId() As String Get Return Me.routeIdField End Get Set Me.routeIdField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TReference)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TReference object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TReference object ''' '''string workflow markup to deserialize '''Output TReference object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TReference) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TReference) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TReference Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TReference) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TReference object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TReference object ''' '''string xml file to load and deserialize '''Output TReference object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TReference) 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 TReference) 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 TReference 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 Region End Class Partial Public Class TErrorDetail Private timestampField As Date Private stackTraceField As String Private additionalDetailsField As List(Of TErrorDetailAdditionalDetails) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.additionalDetailsField = New List(Of TErrorDetailAdditionalDetails)() End Sub Public Property timestamp() As Date Get Return Me.timestampField End Get Set Me.timestampField = Value End Set End Property Public Property stackTrace() As String Get Return Me.stackTraceField End Get Set Me.stackTraceField = Value End Set End Property Public Property additionalDetails() As List(Of TErrorDetailAdditionalDetails) Get Return Me.additionalDetailsField End Get Set Me.additionalDetailsField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TErrorDetail)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TErrorDetail object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TErrorDetail object ''' '''string workflow markup to deserialize '''Output TErrorDetail object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorDetail, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorDetail) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorDetail) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TErrorDetail Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TErrorDetail) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TErrorDetail object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TErrorDetail object ''' '''string xml file to load and deserialize '''Output TErrorDetail object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TErrorDetail, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorDetail) 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 TErrorDetail) 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 TErrorDetail 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 Region End Class Partial Public Class TErrorDetailAdditionalDetails Private typeField As String Private keyField As String Private valueField As String Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property type() As String Get Return Me.typeField End Get Set Me.typeField = Value End Set End Property Public Property key() As String Get Return Me.keyField End Get Set Me.keyField = Value End Set End Property Public Property value() As String Get Return Me.valueField End Get Set Me.valueField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TErrorDetailAdditionalDetails)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TErrorDetailAdditionalDetails object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TErrorDetailAdditionalDetails object ''' '''string workflow markup to deserialize '''Output TErrorDetailAdditionalDetails object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorDetailAdditionalDetails, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorDetailAdditionalDetails) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TErrorDetailAdditionalDetails) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TErrorDetailAdditionalDetails Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TErrorDetailAdditionalDetails) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TErrorDetailAdditionalDetails object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TErrorDetailAdditionalDetails object ''' '''string xml file to load and deserialize '''Output TErrorDetailAdditionalDetails object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TErrorDetailAdditionalDetails, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TErrorDetailAdditionalDetails) 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 TErrorDetailAdditionalDetails) 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 TErrorDetailAdditionalDetails 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 Region End Class Partial Public Class WarningMessages Private warningMessageField As List(Of TErrorMessageType) Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Sub New() MyBase.New Me.warningMessageField = New List(Of TErrorMessageType)() End Sub Public Property WarningMessage() As List(Of TErrorMessageType) Get Return Me.warningMessageField End Get Set Me.warningMessageField = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarningMessages)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current WarningMessages object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an WarningMessages object ''' '''string workflow markup to deserialize '''Output WarningMessages object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarningMessages, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarningMessages) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarningMessages) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As WarningMessages Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WarningMessages) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current WarningMessages object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an WarningMessages object ''' '''string xml file to load and deserialize '''Output WarningMessages object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarningMessages, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarningMessages) 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 WarningMessages) 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 WarningMessages 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 Region End Class Partial Public Class TMetaReference Private correlationIdField As String Private companyField As String Private plantField As String Private referenceTypeField As String Private referenceSidField As Long Private referenceSidFieldSpecified As Boolean Private Shared sSerializer As System.Xml.Serialization.XmlSerializer Public Property correlationId() As String Get Return Me.correlationIdField End Get Set Me.correlationIdField = Value End Set End Property Public Property company() As String Get Return Me.companyField End Get Set Me.companyField = Value End Set End Property Public Property plant() As String Get Return Me.plantField End Get Set Me.plantField = Value End Set End Property Public Property referenceType() As String Get Return Me.referenceTypeField End Get Set Me.referenceTypeField = Value End Set End Property Public Property referenceSid() As Long Get Return Me.referenceSidField End Get Set Me.referenceSidField = Value End Set End Property Public Property referenceSidSpecified() As Boolean Get Return Me.referenceSidFieldSpecified End Get Set Me.referenceSidFieldSpecified = Value End Set End Property Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TMetaReference)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' '''Serializes current TMetaReference object into an XML document ''' '''string XML value Public Overridable Function Serialize() As String Dim streamReader As System.IO.StreamReader = Nothing Dim memoryStream As System.IO.MemoryStream = Nothing Try memoryStream = New System.IO.MemoryStream() Serializer.Serialize(memoryStream, Me) memoryStream.Seek(0, System.IO.SeekOrigin.Begin) streamReader = New System.IO.StreamReader(memoryStream) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then streamReader.Dispose() End If If (Not (memoryStream) Is Nothing) Then memoryStream.Dispose() End If End Try End Function ''' '''Deserializes workflow markup into an TMetaReference object ''' '''string workflow markup to deserialize '''Output TMetaReference object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMetaReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMetaReference) Try obj = Deserialize(xml) Return True Catch ex As System.Exception exception = ex Return False End Try End Function Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TMetaReference) As Boolean Dim exception As System.Exception = Nothing Return Deserialize(xml, obj, exception) End Function Public Overloads Shared Function Deserialize(ByVal xml As String) As TMetaReference Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(xml) Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TMetaReference) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() End If End Try End Function ''' '''Serializes current TMetaReference object into file ''' '''full path of outupt xml file '''output Exception value if failed '''true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean exception = Nothing Try SaveToFile(fileName) Return True Catch e As System.Exception exception = e Return False End Try End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) Dim streamWriter As System.IO.StreamWriter = Nothing Try Dim xmlString As String = Serialize() Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) streamWriter = xmlFile.CreateText streamWriter.WriteLine(xmlString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then streamWriter.Dispose() End If End Try End Sub ''' '''Deserializes xml markup from file into an TMetaReference object ''' '''string xml file to load and deserialize '''Output TMetaReference object '''output Exception value if deserialize failed '''true if this XmlSerializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMetaReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TMetaReference) 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 TMetaReference) 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 TMetaReference 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 Region End Class Public Enum ItemChoiceType ''' ErrorMessages ''' WarningMessages ''' Reference End Enum End Namespace