SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MIC_EXPORT/MicMetaSendExportShipment.Designer.vb

'' ------------------------------------------------------------------------------
''  <auto-generated>
''    Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
''    {"TargetFramework":"Net48","NameSpace":"MicMetaSendExportShipment","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
''  </auto-generated>
'' ------------------------------------------------------------------------------
#Disable Warning
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Runtime.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Collections.Generic

Namespace MicMetaSendExportShipment

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicExportShipment/7.1"),
     XmlRoot([Namespace]:="urn:http://www.mic-cust.com/MicExportShipment/7.1", IsNullable:=False)>
    Partial Public Class SendExportShipment

#Region "Private fields"
        Private _exportShipmentMessage As TExportShipmentMessage

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._exportShipmentMessage = New TExportShipmentMessage()
        End Sub

        Public Property ExportShipmentMessage() As TExportShipmentMessage
            Get
                Return Me._exportShipmentMessage
            End Get
            Set
                Me._exportShipmentMessage = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SendExportShipment))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize SendExportShipment object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes SendExportShipment object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output SendExportShipment object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SendExportShipment, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, SendExportShipment)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SendExportShipment) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As SendExportShipment
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SendExportShipment)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As SendExportShipment
            Return CType(SerializerXml.Deserialize(s), SendExportShipment)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current SendExportShipment object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an SendExportShipment object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output SendExportShipment object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SendExportShipment, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, SendExportShipment)
            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 SendExportShipment) 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 SendExportShipment
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicExportShipment/7.1")>
    Partial Public Class TExportShipmentMessage

#Region "Private fields"
        Private _metadata As TMicMetadata

        Private _messageDetail As TMessageDetail

        Private _exportShipment As ExportShipment

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._exportShipment = New ExportShipment()
            Me._messageDetail = New TMessageDetail()
            Me._metadata = New TMicMetadata()
        End Sub

        <XmlElement([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
        Public Property Metadata() As TMicMetadata
            Get
                Return Me._metadata
            End Get
            Set
                Me._metadata = Value
            End Set
        End Property

        <XmlElement([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
        Public Property MessageDetail() As TMessageDetail
            Get
                Return Me._messageDetail
            End Get
            Set
                Me._messageDetail = Value
            End Set
        End Property

        <XmlElement([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
        Public Property ExportShipment() As ExportShipment
            Get
                Return Me._exportShipment
            End Get
            Set
                Me._exportShipment = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TExportShipmentMessage))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TExportShipmentMessage object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TExportShipmentMessage object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TExportShipmentMessage object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TExportShipmentMessage, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TExportShipmentMessage)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TExportShipmentMessage) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TExportShipmentMessage
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TExportShipmentMessage)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TExportShipmentMessage
            Return CType(SerializerXml.Deserialize(s), TExportShipmentMessage)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TExportShipmentMessage object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TExportShipmentMessage object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TExportShipmentMessage object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TExportShipmentMessage, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TExportShipmentMessage)
            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 TExportShipmentMessage) 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 TExportShipmentMessage
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TMicMetadata

#Region "Private fields"
        Private _connectionId As String

        Private _partnerId As String

        Private _dateTime As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property connectionId() As String
            Get
                Return Me._connectionId
            End Get
            Set
                Me._connectionId = Value
            End Set
        End Property

        Public Property partnerId() As String
            Get
                Return Me._partnerId
            End Get
            Set
                Me._partnerId = Value
            End Set
        End Property

        Public Property dateTime() As Date
            Get
                Return Me._dateTime
            End Get
            Set
                Me._dateTime = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMicMetadata))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMicMetadata object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMicMetadata object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMicMetadata object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicMetadata, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicMetadata)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicMetadata) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMicMetadata
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMicMetadata)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMicMetadata
            Return CType(SerializerXml.Deserialize(s), TMicMetadata)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMicMetadata object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMicMetadata object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMicMetadata object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPackageLine

#Region "Private fields"
        Private _invNo As String

        Private _invoiceVersion As String

        Private _invPos As String

        Private _quantity As Decimal

        Private _unit As String

        Private _nWeight As Decimal

        Private _numberOfPackages As Long

        Private _itemQuantity As Long

        Private _itemUnit As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._invoiceVersion = "1"
        End Sub

        Public Property invNo() As String
            Get
                Return Me._invNo
            End Get
            Set
                Me._invNo = Value
            End Set
        End Property

        <System.ComponentModel.DefaultValue("1")>
        Public Property invoiceVersion() As String
            Get
                Return Me._invoiceVersion
            End Get
            Set
                Me._invoiceVersion = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property invPos() As String
            Get
                Return Me._invPos
            End Get
            Set
                Me._invPos = Value
            End Set
        End Property

        Public Property quantity() As Decimal
            Get
                Return Me._quantity
            End Get
            Set
                Me._quantity = Value
            End Set
        End Property

        Public Property unit() As String
            Get
                Return Me._unit
            End Get
            Set
                Me._unit = Value
            End Set
        End Property

        Public Property nWeight() As Decimal
            Get
                Return Me._nWeight
            End Get
            Set
                Me._nWeight = Value
            End Set
        End Property

        Public Property numberOfPackages() As Long
            Get
                Return Me._numberOfPackages
            End Get
            Set
                Me._numberOfPackages = Value
            End Set
        End Property

        Public Property itemQuantity() As Long
            Get
                Return Me._itemQuantity
            End Get
            Set
                Me._itemQuantity = Value
            End Set
        End Property

        Public Property itemUnit() As String
            Get
                Return Me._itemUnit
            End Get
            Set
                Me._itemUnit = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPackageLine))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPackageLine object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPackageLine object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPackageLine object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackageLine, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPackageLine)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackageLine) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPackageLine
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPackageLine)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPackageLine
            Return CType(SerializerXml.Deserialize(s), TPackageLine)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPackageLine object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPackageLine object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPackageLine object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPackageLine, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPackageLine)
            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 TPackageLine) 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 TPackageLine
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPackageHead

#Region "Private fields"
        Private _packageNo As String

        Private _pType As String

        Private _unit As String

        Private _packageNoExt As String

        Private _gWeight As Decimal

        Private _nWeight As Decimal

        Private _tara As Decimal

        Private _unitWeight As String

        Private _volume As Decimal

        Private _grossVolume As Decimal

        Private _netVolume As Decimal

        Private _unitVolume As String

        Private _length As Decimal

        Private _width As Decimal

        Private _height As Decimal

        Private _unitlwh As String

        Private _description As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property packageNo() As String
            Get
                Return Me._packageNo
            End Get
            Set
                Me._packageNo = Value
            End Set
        End Property

        Public Property pType() As String
            Get
                Return Me._pType
            End Get
            Set
                Me._pType = Value
            End Set
        End Property

        Public Property unit() As String
            Get
                Return Me._unit
            End Get
            Set
                Me._unit = Value
            End Set
        End Property

        Public Property packageNoExt() As String
            Get
                Return Me._packageNoExt
            End Get
            Set
                Me._packageNoExt = Value
            End Set
        End Property

        Public Property gWeight() As Decimal
            Get
                Return Me._gWeight
            End Get
            Set
                Me._gWeight = Value
            End Set
        End Property

        Public Property nWeight() As Decimal
            Get
                Return Me._nWeight
            End Get
            Set
                Me._nWeight = Value
            End Set
        End Property

        Public Property tara() As Decimal
            Get
                Return Me._tara
            End Get
            Set
                Me._tara = Value
            End Set
        End Property

        Public Property unitWeight() As String
            Get
                Return Me._unitWeight
            End Get
            Set
                Me._unitWeight = Value
            End Set
        End Property

        Public Property volume() As Decimal
            Get
                Return Me._volume
            End Get
            Set
                Me._volume = Value
            End Set
        End Property

        Public Property grossVolume() As Decimal
            Get
                Return Me._grossVolume
            End Get
            Set
                Me._grossVolume = Value
            End Set
        End Property

        Public Property netVolume() As Decimal
            Get
                Return Me._netVolume
            End Get
            Set
                Me._netVolume = Value
            End Set
        End Property

        Public Property unitVolume() As String
            Get
                Return Me._unitVolume
            End Get
            Set
                Me._unitVolume = Value
            End Set
        End Property

        Public Property length() As Decimal
            Get
                Return Me._length
            End Get
            Set
                Me._length = Value
            End Set
        End Property

        Public Property width() As Decimal
            Get
                Return Me._width
            End Get
            Set
                Me._width = Value
            End Set
        End Property

        Public Property height() As Decimal
            Get
                Return Me._height
            End Get
            Set
                Me._height = Value
            End Set
        End Property

        Public Property unitlwh() As String
            Get
                Return Me._unitlwh
            End Get
            Set
                Me._unitlwh = Value
            End Set
        End Property

        Public Property description() As String
            Get
                Return Me._description
            End Get
            Set
                Me._description = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPackageHead))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPackageHead object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPackageHead object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPackageHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackageHead, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPackageHead)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackageHead) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPackageHead
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPackageHead)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPackageHead
            Return CType(SerializerXml.Deserialize(s), TPackageHead)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPackageHead object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPackageHead object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPackageHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPackageHead, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPackageHead)
            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 TPackageHead) 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 TPackageHead
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPackage

#Region "Private fields"
        Private _packageHead As TPackageHead

        Private _packageLine As List(Of TPackageLine)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._packageLine = New List(Of TPackageLine)()
            Me._packageHead = New TPackageHead()
        End Sub

        Public Property packageHead() As TPackageHead
            Get
                Return Me._packageHead
            End Get
            Set
                Me._packageHead = Value
            End Set
        End Property

        <XmlElement("packageLine")>
        Public Property packageLine() As List(Of TPackageLine)
            Get
                Return Me._packageLine
            End Get
            Set
                Me._packageLine = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPackage))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPackage object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPackage object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPackage object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackage, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPackage)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPackage) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPackage
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPackage)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPackage
            Return CType(SerializerXml.Deserialize(s), TPackage)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPackage object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPackage object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPackage object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMicDutyTax

#Region "Private fields"
        Private _type As String

        Private _calculationBase As Decimal

        Private _calculationBaseUom As String

        Private _code As String

        Private _rate As Decimal

        Private _dutyAmount As Decimal

        Private _additionalCosts As Decimal

        Private _calculatedDuties As Decimal

        Private _paymentCode As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property calculationBase() As Decimal
            Get
                Return Me._calculationBase
            End Get
            Set
                Me._calculationBase = Value
            End Set
        End Property

        Public Property calculationBaseUom() As String
            Get
                Return Me._calculationBaseUom
            End Get
            Set
                Me._calculationBaseUom = Value
            End Set
        End Property

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        Public Property rate() As Decimal
            Get
                Return Me._rate
            End Get
            Set
                Me._rate = Value
            End Set
        End Property

        Public Property dutyAmount() As Decimal
            Get
                Return Me._dutyAmount
            End Get
            Set
                Me._dutyAmount = Value
            End Set
        End Property

        Public Property additionalCosts() As Decimal
            Get
                Return Me._additionalCosts
            End Get
            Set
                Me._additionalCosts = Value
            End Set
        End Property

        Public Property calculatedDuties() As Decimal
            Get
                Return Me._calculatedDuties
            End Get
            Set
                Me._calculatedDuties = Value
            End Set
        End Property

        Public Property paymentCode() As String
            Get
                Return Me._paymentCode
            End Get
            Set
                Me._paymentCode = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMicDutyTax))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMicDutyTax object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMicDutyTax object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMicDutyTax object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDutyTax, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDutyTax)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDutyTax) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMicDutyTax
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMicDutyTax)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMicDutyTax
            Return CType(SerializerXml.Deserialize(s), TMicDutyTax)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMicDutyTax object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMicDutyTax object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMicDutyTax object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMicDutyTax, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDutyTax)
            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 TMicDutyTax) 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 TMicDutyTax
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMicDutyTaxes

#Region "Private fields"
        Private _dutyTax As List(Of TMicDutyTax)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._dutyTax = New List(Of TMicDutyTax)()
        End Sub

        <XmlElement("DutyTax")>
        Public Property DutyTax() As List(Of TMicDutyTax)
            Get
                Return Me._dutyTax
            End Get
            Set
                Me._dutyTax = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMicDutyTaxes))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMicDutyTaxes object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMicDutyTaxes object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMicDutyTaxes object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDutyTaxes, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDutyTaxes)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDutyTaxes) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMicDutyTaxes
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMicDutyTaxes)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMicDutyTaxes
            Return CType(SerializerXml.Deserialize(s), TMicDutyTaxes)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMicDutyTaxes object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMicDutyTaxes object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMicDutyTaxes object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMicDutyTaxes, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDutyTaxes)
            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 TMicDutyTaxes) 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 TMicDutyTaxes
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMicDuty

#Region "Private fields"
        Private _type As String

        Private _calculatedDutyBase As Decimal

        Private _currency As String

        Private _code As String

        Private _rate As Decimal

        Private _amount As Decimal

        Private _addDeduct As Decimal

        Private _calculatedDuty As Decimal

        Private _duty As Decimal

        Private _dutyBase As Decimal

        Private _measureCode As String

        Private _measure As String

        Private _authorityDutyCode As String

        Private _territory As String

        Private _typeAddCode As String

        Private _numberAddCode As String

        Private _tariffRateQuota As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property calculatedDutyBase() As Decimal
            Get
                Return Me._calculatedDutyBase
            End Get
            Set
                Me._calculatedDutyBase = Value
            End Set
        End Property

        Public Property currency() As String
            Get
                Return Me._currency
            End Get
            Set
                Me._currency = Value
            End Set
        End Property

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        Public Property rate() As Decimal
            Get
                Return Me._rate
            End Get
            Set
                Me._rate = Value
            End Set
        End Property

        Public Property amount() As Decimal
            Get
                Return Me._amount
            End Get
            Set
                Me._amount = Value
            End Set
        End Property

        Public Property addDeduct() As Decimal
            Get
                Return Me._addDeduct
            End Get
            Set
                Me._addDeduct = Value
            End Set
        End Property

        Public Property calculatedDuty() As Decimal
            Get
                Return Me._calculatedDuty
            End Get
            Set
                Me._calculatedDuty = Value
            End Set
        End Property

        Public Property duty() As Decimal
            Get
                Return Me._duty
            End Get
            Set
                Me._duty = Value
            End Set
        End Property

        Public Property dutyBase() As Decimal
            Get
                Return Me._dutyBase
            End Get
            Set
                Me._dutyBase = Value
            End Set
        End Property

        Public Property measureCode() As String
            Get
                Return Me._measureCode
            End Get
            Set
                Me._measureCode = Value
            End Set
        End Property

        Public Property measure() As String
            Get
                Return Me._measure
            End Get
            Set
                Me._measure = Value
            End Set
        End Property

        Public Property authorityDutyCode() As String
            Get
                Return Me._authorityDutyCode
            End Get
            Set
                Me._authorityDutyCode = Value
            End Set
        End Property

        Public Property territory() As String
            Get
                Return Me._territory
            End Get
            Set
                Me._territory = Value
            End Set
        End Property

        Public Property typeAddCode() As String
            Get
                Return Me._typeAddCode
            End Get
            Set
                Me._typeAddCode = Value
            End Set
        End Property

        Public Property numberAddCode() As String
            Get
                Return Me._numberAddCode
            End Get
            Set
                Me._numberAddCode = Value
            End Set
        End Property

        Public Property tariffRateQuota() As String
            Get
                Return Me._tariffRateQuota
            End Get
            Set
                Me._tariffRateQuota = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMicDuty))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMicDuty object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMicDuty object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMicDuty object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDuty, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDuty)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDuty) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMicDuty
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMicDuty)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMicDuty
            Return CType(SerializerXml.Deserialize(s), TMicDuty)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMicDuty object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMicDuty object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMicDuty object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMicDuty, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDuty)
            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 TMicDuty) 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 TMicDuty
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMicDuties

#Region "Private fields"
        Private _duty As List(Of TMicDuty)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._duty = New List(Of TMicDuty)()
        End Sub

        <XmlElement("Duty")>
        Public Property Duty() As List(Of TMicDuty)
            Get
                Return Me._duty
            End Get
            Set
                Me._duty = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMicDuties))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMicDuties object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMicDuties object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMicDuties object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDuties, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDuties)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMicDuties) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMicDuties
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMicDuties)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMicDuties
            Return CType(SerializerXml.Deserialize(s), TMicDuties)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMicDuties object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMicDuties object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMicDuties object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMicDuties, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMicDuties)
            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 TMicDuties) 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 TMicDuties
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TErpLineData

#Region "Private fields"
        Private _legalRegulation As String

        Private _exportControlClass As String

        Private _embargo As String

        Private _licenseType As String

        Private _licenseNumber As String

        Private _profitCenter As String

        Private _vZTA As String

        Private _erpInvoicelinenumber As String

        Private _erpPartnumber As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property legalRegulation() As String
            Get
                Return Me._legalRegulation
            End Get
            Set
                Me._legalRegulation = Value
            End Set
        End Property

        Public Property exportControlClass() As String
            Get
                Return Me._exportControlClass
            End Get
            Set
                Me._exportControlClass = Value
            End Set
        End Property

        Public Property embargo() As String
            Get
                Return Me._embargo
            End Get
            Set
                Me._embargo = Value
            End Set
        End Property

        Public Property licenseType() As String
            Get
                Return Me._licenseType
            End Get
            Set
                Me._licenseType = Value
            End Set
        End Property

        Public Property licenseNumber() As String
            Get
                Return Me._licenseNumber
            End Get
            Set
                Me._licenseNumber = Value
            End Set
        End Property

        Public Property profitCenter() As String
            Get
                Return Me._profitCenter
            End Get
            Set
                Me._profitCenter = Value
            End Set
        End Property

        Public Property vZTA() As String
            Get
                Return Me._vZTA
            End Get
            Set
                Me._vZTA = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property erpInvoicelinenumber() As String
            Get
                Return Me._erpInvoicelinenumber
            End Get
            Set
                Me._erpInvoicelinenumber = Value
            End Set
        End Property

        Public Property erpPartnumber() As String
            Get
                Return Me._erpPartnumber
            End Get
            Set
                Me._erpPartnumber = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TErpLineData))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TErpLineData object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TErpLineData object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TErpLineData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErpLineData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErpLineData)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErpLineData) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TErpLineData
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TErpLineData)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TErpLineData
            Return CType(SerializerXml.Deserialize(s), TErpLineData)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TErpLineData object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TErpLineData object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TErpLineData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TErpLineData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErpLineData)
            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 TErpLineData) 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 TErpLineData
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TRegInfo

#Region "Private fields"
        Private _registrationNumber1 As String

        Private _registrationNumber2 As String

        Private _registrationNumber3 As String

        Private _referenceNumber1 As String

        Private _referenceNumber2 As String

        Private _referenceNumber3 As String

        Private _registrationDate As Date

        Private _acceptanceDate As Date

        Private _releaseDate As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property registrationNumber1() As String
            Get
                Return Me._registrationNumber1
            End Get
            Set
                Me._registrationNumber1 = Value
            End Set
        End Property

        Public Property registrationNumber2() As String
            Get
                Return Me._registrationNumber2
            End Get
            Set
                Me._registrationNumber2 = Value
            End Set
        End Property

        Public Property registrationNumber3() As String
            Get
                Return Me._registrationNumber3
            End Get
            Set
                Me._registrationNumber3 = Value
            End Set
        End Property

        Public Property referenceNumber1() As String
            Get
                Return Me._referenceNumber1
            End Get
            Set
                Me._referenceNumber1 = Value
            End Set
        End Property

        Public Property referenceNumber2() As String
            Get
                Return Me._referenceNumber2
            End Get
            Set
                Me._referenceNumber2 = Value
            End Set
        End Property

        Public Property referenceNumber3() As String
            Get
                Return Me._referenceNumber3
            End Get
            Set
                Me._referenceNumber3 = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property registrationDate() As Date
            Get
                Return Me._registrationDate
            End Get
            Set
                Me._registrationDate = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property acceptanceDate() As Date
            Get
                Return Me._acceptanceDate
            End Get
            Set
                Me._acceptanceDate = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property releaseDate() As Date
            Get
                Return Me._releaseDate
            End Get
            Set
                Me._releaseDate = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRegInfo))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TRegInfo object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TRegInfo object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TRegInfo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRegInfo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TRegInfo)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRegInfo) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TRegInfo
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRegInfo)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRegInfo
            Return CType(SerializerXml.Deserialize(s), TRegInfo)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TRegInfo object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TRegInfo object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TRegInfo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRegInfo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TRegInfo)
            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 TRegInfo) 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 TRegInfo
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TImportQuantity

#Region "Private fields"
        Private _qualifier As String

        Private _unit As String

        Private _value As Decimal

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property qualifier() As String
            Get
                Return Me._qualifier
            End Get
            Set
                Me._qualifier = Value
            End Set
        End Property

        Public Property unit() As String
            Get
                Return Me._unit
            End Get
            Set
                Me._unit = Value
            End Set
        End Property

        Public Property value() As Decimal
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TImportQuantity))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TImportQuantity object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TImportQuantity object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TImportQuantity object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TImportQuantity, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TImportQuantity)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TImportQuantity) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TImportQuantity
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TImportQuantity)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TImportQuantity
            Return CType(SerializerXml.Deserialize(s), TImportQuantity)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TImportQuantity object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TImportQuantity object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TImportQuantity object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportQuantity, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TImportQuantity)
            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 TImportQuantity) 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 TImportQuantity
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TImportReference

#Region "Private fields"
        Private _type As String

        Private _authType As String

        Private _authNr As String

        Private _mrn As String

        Private _impShpNr As String

        Private _lineNo As String

        Private _authRegistryNo As String

        Private _commCode As String

        Private _usualTreatment As String

        Private _importAtlas As String

        Private _addInfo As String

        Private _quantity As TImportQuantity

        Private _tradeQuantity As TImportQuantity

        Private _packageQuantity As Decimal

        Private _netMass As Decimal

        Private _grossMass As Decimal

        Private _statisticalQuantity As Decimal

        Private _simpleIprApplication As String

        Private _supervisingOffice As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._tradeQuantity = New TImportQuantity()
            Me._quantity = New TImportQuantity()
        End Sub

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property authType() As String
            Get
                Return Me._authType
            End Get
            Set
                Me._authType = Value
            End Set
        End Property

        Public Property authNr() As String
            Get
                Return Me._authNr
            End Get
            Set
                Me._authNr = Value
            End Set
        End Property

        Public Property mrn() As String
            Get
                Return Me._mrn
            End Get
            Set
                Me._mrn = Value
            End Set
        End Property

        Public Property impShpNr() As String
            Get
                Return Me._impShpNr
            End Get
            Set
                Me._impShpNr = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property lineNo() As String
            Get
                Return Me._lineNo
            End Get
            Set
                Me._lineNo = Value
            End Set
        End Property

        Public Property authRegistryNo() As String
            Get
                Return Me._authRegistryNo
            End Get
            Set
                Me._authRegistryNo = Value
            End Set
        End Property

        Public Property commCode() As String
            Get
                Return Me._commCode
            End Get
            Set
                Me._commCode = Value
            End Set
        End Property

        Public Property usualTreatment() As String
            Get
                Return Me._usualTreatment
            End Get
            Set
                Me._usualTreatment = Value
            End Set
        End Property

        Public Property importAtlas() As String
            Get
                Return Me._importAtlas
            End Get
            Set
                Me._importAtlas = Value
            End Set
        End Property

        Public Property addInfo() As String
            Get
                Return Me._addInfo
            End Get
            Set
                Me._addInfo = Value
            End Set
        End Property

        Public Property quantity() As TImportQuantity
            Get
                Return Me._quantity
            End Get
            Set
                Me._quantity = Value
            End Set
        End Property

        Public Property tradeQuantity() As TImportQuantity
            Get
                Return Me._tradeQuantity
            End Get
            Set
                Me._tradeQuantity = Value
            End Set
        End Property

        Public Property packageQuantity() As Decimal
            Get
                Return Me._packageQuantity
            End Get
            Set
                Me._packageQuantity = Value
            End Set
        End Property

        Public Property netMass() As Decimal
            Get
                Return Me._netMass
            End Get
            Set
                Me._netMass = Value
            End Set
        End Property

        Public Property grossMass() As Decimal
            Get
                Return Me._grossMass
            End Get
            Set
                Me._grossMass = Value
            End Set
        End Property

        Public Property statisticalQuantity() As Decimal
            Get
                Return Me._statisticalQuantity
            End Get
            Set
                Me._statisticalQuantity = Value
            End Set
        End Property

        Public Property simpleIprApplication() As String
            Get
                Return Me._simpleIprApplication
            End Get
            Set
                Me._simpleIprApplication = Value
            End Set
        End Property

        Public Property supervisingOffice() As String
            Get
                Return Me._supervisingOffice
            End Get
            Set
                Me._supervisingOffice = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TImportReference))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TImportReference object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TImportReference object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TImportReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TImportReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TImportReference)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TImportReference) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TImportReference
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TImportReference)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TImportReference
            Return CType(SerializerXml.Deserialize(s), TImportReference)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TImportReference object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TImportReference object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TImportReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TImportReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TImportReference)
            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 TImportReference) 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 TImportReference
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TBomNo

#Region "Private fields"
        Private _no As String

        Private _var As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property no() As String
            Get
                Return Me._no
            End Get
            Set
                Me._no = Value
            End Set
        End Property

        Public Property var() As String
            Get
                Return Me._var
            End Get
            Set
                Me._var = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TBomNo))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TBomNo object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TBomNo object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TBomNo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TBomNo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TBomNo)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TBomNo) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TBomNo
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TBomNo)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TBomNo
            Return CType(SerializerXml.Deserialize(s), TBomNo)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TBomNo object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TBomNo object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TBomNo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TBomNo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TBomNo)
            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 TBomNo) 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 TBomNo
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TOrder

#Region "Private fields"
        Private _ordNo As String

        Private _ordDate As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property ordNo() As String
            Get
                Return Me._ordNo
            End Get
            Set
                Me._ordNo = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property ordDate() As Date
            Get
                Return Me._ordDate
            End Get
            Set
                Me._ordDate = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TOrder))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TOrder object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TOrder object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TOrder object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TOrder, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TOrder)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TOrder) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TOrder
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TOrder)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TOrder
            Return CType(SerializerXml.Deserialize(s), TOrder)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TOrder object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TOrder object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TOrder object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TOrder, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TOrder)
            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 TOrder) 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 TOrder
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TDelNote

#Region "Private fields"
        Private _delNo As String

        Private _position As Long

        Private _delDate As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property delNo() As String
            Get
                Return Me._delNo
            End Get
            Set
                Me._delNo = Value
            End Set
        End Property

        Public Property position() As Long
            Get
                Return Me._position
            End Get
            Set
                Me._position = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property delDate() As Date
            Get
                Return Me._delDate
            End Get
            Set
                Me._delDate = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TDelNote))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TDelNote object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TDelNote object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TDelNote object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDelNote, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDelNote)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDelNote) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TDelNote
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TDelNote)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TDelNote
            Return CType(SerializerXml.Deserialize(s), TDelNote)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TDelNote object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TDelNote object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TDelNote object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDelNote, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDelNote)
            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 TDelNote) 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 TDelNote
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TItem

#Region "Private fields"
        Private _itemNo As String

        Private _itemDesc As String

        Private _commCode As String

        Private _prodGr As String

        Private _cusCode As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property itemNo() As String
            Get
                Return Me._itemNo
            End Get
            Set
                Me._itemNo = Value
            End Set
        End Property

        Public Property itemDesc() As String
            Get
                Return Me._itemDesc
            End Get
            Set
                Me._itemDesc = Value
            End Set
        End Property

        Public Property commCode() As String
            Get
                Return Me._commCode
            End Get
            Set
                Me._commCode = Value
            End Set
        End Property

        Public Property prodGr() As String
            Get
                Return Me._prodGr
            End Get
            Set
                Me._prodGr = Value
            End Set
        End Property

        Public Property cusCode() As String
            Get
                Return Me._cusCode
            End Get
            Set
                Me._cusCode = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TItem))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TItem object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TItem object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TItem object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TItem, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TItem)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TItem) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TItem
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TItem)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TItem
            Return CType(SerializerXml.Deserialize(s), TItem)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TItem object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TItem object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TItem object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPreviousDocument

#Region "Private fields"
        Private _docType As String

        Private _docQual As String

        Private _docNo As String

        Private _docAddText As String

        Private _docCategory As String

        Private _itemNumber As String

        Private _unit As String

        Private _quantity As Decimal

        Private _numberOfPackages As String

        Private _packageType As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property docType() As String
            Get
                Return Me._docType
            End Get
            Set
                Me._docType = Value
            End Set
        End Property

        Public Property docQual() As String
            Get
                Return Me._docQual
            End Get
            Set
                Me._docQual = Value
            End Set
        End Property

        Public Property docNo() As String
            Get
                Return Me._docNo
            End Get
            Set
                Me._docNo = Value
            End Set
        End Property

        Public Property docAddText() As String
            Get
                Return Me._docAddText
            End Get
            Set
                Me._docAddText = Value
            End Set
        End Property

        Public Property docCategory() As String
            Get
                Return Me._docCategory
            End Get
            Set
                Me._docCategory = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property itemNumber() As String
            Get
                Return Me._itemNumber
            End Get
            Set
                Me._itemNumber = Value
            End Set
        End Property

        Public Property unit() As String
            Get
                Return Me._unit
            End Get
            Set
                Me._unit = Value
            End Set
        End Property

        Public Property quantity() As Decimal
            Get
                Return Me._quantity
            End Get
            Set
                Me._quantity = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property numberOfPackages() As String
            Get
                Return Me._numberOfPackages
            End Get
            Set
                Me._numberOfPackages = Value
            End Set
        End Property

        Public Property packageType() As String
            Get
                Return Me._packageType
            End Get
            Set
                Me._packageType = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPreviousDocument))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPreviousDocument object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPreviousDocument object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPreviousDocument object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPreviousDocument, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPreviousDocument)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPreviousDocument) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPreviousDocument
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPreviousDocument)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPreviousDocument
            Return CType(SerializerXml.Deserialize(s), TPreviousDocument)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPreviousDocument object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPreviousDocument object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPreviousDocument object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPreviousDocument, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPreviousDocument)
            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 TPreviousDocument) 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 TPreviousDocument
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLine

#Region "Private fields"
        Private _lineNo As String

        Private _unitPrice As Decimal

        Private _amount As Decimal

        Private _nWeight As Decimal

        Private _gWeight As Decimal

        Private _statQuant As Decimal

        Private _statUnit As String

        Private _statVal As Decimal

        Private _custProc As String

        Private _eUCode As String

        Private _statCode As String

        Private _transType As String

        Private _exportCountry As String

        Private _coo As String

        Private _cooState As String

        Private _addText As List(Of String)

        Private _prevDoc As List(Of TPreviousDocument)

        Private _item As TItem

        Private _taricAddCode As List(Of TInvoiceLineTaricAddCode)

        Private _dangerousGoods As List(Of TInvoiceLineDangerousGoods)

        Private _documents As List(Of TDocuments)

        Private _delTerm As TInvoiceLineDelTerm

        Private _quantity As Decimal

        Private _unit As String

        Private _specialQuantity As Decimal

        Private _specialQuantityUnit As String

        Private _delnote As TDelNote

        Private _order As TOrder

        Private _itemRef As String

        Private _addCosts As List(Of TAddCosts)

        Private _addCode As List(Of String)

        Private _natCode As List(Of String)

        Private _stockTypeAdd As String

        Private _stockTypeDed As String

        Private _bom As TBomNo

        Private _accountNo As String

        Private _customerFields As TCustomerFields

        Private _attributes As List(Of TAttribute)

        Private _containers As List(Of TContainer)

        Private _shipmentIdentification As String

        Private _uNDG As String

        Private _consigneeEndUserFlag As String

        Private _endUserInEam As TInvoiceLineEndUserInEam

        Private _carriageCosts As String

        Private _shipTo As TInvoiceLineShipTo

        Private _endUser As TInvoiceLineEndUser

        Private _importReference As List(Of TImportReference)

        Private _registrationInfo As TRegInfo

        Private _serialNo As String

        Private _referenceValue As Decimal

        Private _model As String

        Private _brand As String

        Private _addedValue As Decimal

        Private _ctoId As String

        Private _infoText2 As String

        Private _branchNo As String

        Private _additionalInformation As List(Of TAttribute)

        Private _trackingNumber As String

        Private _erpData As TErpLineData

        Private _outwardProcessing As TInvoiceLineOutwardProcessing

        Private _partners As List(Of TPartner)

        Private _authorisations As List(Of TAuthorisation)

        Private _eudr As TInvoiceLineEudr

        Private _duties As TMicDuties

        Private _dutyTaxes As TMicDutyTaxes

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._dutyTaxes = New TMicDutyTaxes()
            Me._duties = New TMicDuties()
            Me._eudr = New TInvoiceLineEudr()
            Me._authorisations = New List(Of TAuthorisation)()
            Me._partners = New List(Of TPartner)()
            Me._outwardProcessing = New TInvoiceLineOutwardProcessing()
            Me._erpData = New TErpLineData()
            Me._additionalInformation = New List(Of TAttribute)()
            Me._registrationInfo = New TRegInfo()
            Me._importReference = New List(Of TImportReference)()
            Me._endUser = New TInvoiceLineEndUser()
            Me._shipTo = New TInvoiceLineShipTo()
            Me._containers = New List(Of TContainer)()
            Me._attributes = New List(Of TAttribute)()
            Me._customerFields = New TCustomerFields()
            Me._bom = New TBomNo()
            Me._natCode = New List(Of String)()
            Me._addCode = New List(Of String)()
            Me._addCosts = New List(Of TAddCosts)()
            Me._order = New TOrder()
            Me._delnote = New TDelNote()
            Me._delTerm = New TInvoiceLineDelTerm()
            Me._documents = New List(Of TDocuments)()
            Me._dangerousGoods = New List(Of TInvoiceLineDangerousGoods)()
            Me._taricAddCode = New List(Of TInvoiceLineTaricAddCode)()
            Me._item = New TItem()
            Me._prevDoc = New List(Of TPreviousDocument)()
            Me._addText = New List(Of String)()
        End Sub

        <XmlElement(DataType:="integer")>
        Public Property lineNo() As String
            Get
                Return Me._lineNo
            End Get
            Set
                Me._lineNo = Value
            End Set
        End Property

        Public Property unitPrice() As Decimal
            Get
                Return Me._unitPrice
            End Get
            Set
                Me._unitPrice = Value
            End Set
        End Property

        Public Property amount() As Decimal
            Get
                Return Me._amount
            End Get
            Set
                Me._amount = Value
            End Set
        End Property

        Public Property nWeight() As Decimal
            Get
                Return Me._nWeight
            End Get
            Set
                Me._nWeight = Value
            End Set
        End Property

        Public Property gWeight() As Decimal
            Get
                Return Me._gWeight
            End Get
            Set
                Me._gWeight = Value
            End Set
        End Property

        Public Property statQuant() As Decimal
            Get
                Return Me._statQuant
            End Get
            Set
                Me._statQuant = Value
            End Set
        End Property

        Public Property statUnit() As String
            Get
                Return Me._statUnit
            End Get
            Set
                Me._statUnit = Value
            End Set
        End Property

        Public Property statVal() As Decimal
            Get
                Return Me._statVal
            End Get
            Set
                Me._statVal = Value
            End Set
        End Property

        Public Property custProc() As String
            Get
                Return Me._custProc
            End Get
            Set
                Me._custProc = Value
            End Set
        End Property

        Public Property EUCode() As String
            Get
                Return Me._eUCode
            End Get
            Set
                Me._eUCode = Value
            End Set
        End Property

        Public Property statCode() As String
            Get
                Return Me._statCode
            End Get
            Set
                Me._statCode = Value
            End Set
        End Property

        Public Property transType() As String
            Get
                Return Me._transType
            End Get
            Set
                Me._transType = Value
            End Set
        End Property

        Public Property exportCountry() As String
            Get
                Return Me._exportCountry
            End Get
            Set
                Me._exportCountry = Value
            End Set
        End Property

        Public Property coo() As String
            Get
                Return Me._coo
            End Get
            Set
                Me._coo = Value
            End Set
        End Property

        Public Property cooState() As String
            Get
                Return Me._cooState
            End Get
            Set
                Me._cooState = Value
            End Set
        End Property

        <XmlElement("addText")>
        Public Property addText() As List(Of String)
            Get
                Return Me._addText
            End Get
            Set
                Me._addText = Value
            End Set
        End Property

        <XmlElement("prevDoc")>
        Public Property prevDoc() As List(Of TPreviousDocument)
            Get
                Return Me._prevDoc
            End Get
            Set
                Me._prevDoc = Value
            End Set
        End Property

        Public Property item() As TItem
            Get
                Return Me._item
            End Get
            Set
                Me._item = Value
            End Set
        End Property

        <XmlElement("taricAddCode")>
        Public Property taricAddCode() As List(Of TInvoiceLineTaricAddCode)
            Get
                Return Me._taricAddCode
            End Get
            Set
                Me._taricAddCode = Value
            End Set
        End Property

        <XmlElement("dangerousGoods")>
        Public Property dangerousGoods() As List(Of TInvoiceLineDangerousGoods)
            Get
                Return Me._dangerousGoods
            End Get
            Set
                Me._dangerousGoods = Value
            End Set
        End Property

        <XmlElement("documents")>
        Public Property documents() As List(Of TDocuments)
            Get
                Return Me._documents
            End Get
            Set
                Me._documents = Value
            End Set
        End Property

        Public Property delTerm() As TInvoiceLineDelTerm
            Get
                Return Me._delTerm
            End Get
            Set
                Me._delTerm = Value
            End Set
        End Property

        Public Property quantity() As Decimal
            Get
                Return Me._quantity
            End Get
            Set
                Me._quantity = Value
            End Set
        End Property

        Public Property unit() As String
            Get
                Return Me._unit
            End Get
            Set
                Me._unit = Value
            End Set
        End Property

        Public Property specialQuantity() As Decimal
            Get
                Return Me._specialQuantity
            End Get
            Set
                Me._specialQuantity = Value
            End Set
        End Property

        Public Property specialQuantityUnit() As String
            Get
                Return Me._specialQuantityUnit
            End Get
            Set
                Me._specialQuantityUnit = Value
            End Set
        End Property

        Public Property delnote() As TDelNote
            Get
                Return Me._delnote
            End Get
            Set
                Me._delnote = Value
            End Set
        End Property

        Public Property order() As TOrder
            Get
                Return Me._order
            End Get
            Set
                Me._order = Value
            End Set
        End Property

        Public Property itemRef() As String
            Get
                Return Me._itemRef
            End Get
            Set
                Me._itemRef = Value
            End Set
        End Property

        <XmlElement("addCosts")>
        Public Property addCosts() As List(Of TAddCosts)
            Get
                Return Me._addCosts
            End Get
            Set
                Me._addCosts = Value
            End Set
        End Property

        <XmlElement("addCode")>
        Public Property addCode() As List(Of String)
            Get
                Return Me._addCode
            End Get
            Set
                Me._addCode = Value
            End Set
        End Property

        <XmlElement("natCode")>
        Public Property natCode() As List(Of String)
            Get
                Return Me._natCode
            End Get
            Set
                Me._natCode = Value
            End Set
        End Property

        Public Property stockTypeAdd() As String
            Get
                Return Me._stockTypeAdd
            End Get
            Set
                Me._stockTypeAdd = Value
            End Set
        End Property

        Public Property stockTypeDed() As String
            Get
                Return Me._stockTypeDed
            End Get
            Set
                Me._stockTypeDed = Value
            End Set
        End Property

        Public Property bom() As TBomNo
            Get
                Return Me._bom
            End Get
            Set
                Me._bom = Value
            End Set
        End Property

        Public Property accountNo() As String
            Get
                Return Me._accountNo
            End Get
            Set
                Me._accountNo = Value
            End Set
        End Property

        Public Property customerFields() As TCustomerFields
            Get
                Return Me._customerFields
            End Get
            Set
                Me._customerFields = Value
            End Set
        End Property

        <XmlElement("attributes")>
        Public Property attributes() As List(Of TAttribute)
            Get
                Return Me._attributes
            End Get
            Set
                Me._attributes = Value
            End Set
        End Property

        <XmlElement("containers")>
        Public Property containers() As List(Of TContainer)
            Get
                Return Me._containers
            End Get
            Set
                Me._containers = Value
            End Set
        End Property

        Public Property shipmentIdentification() As String
            Get
                Return Me._shipmentIdentification
            End Get
            Set
                Me._shipmentIdentification = Value
            End Set
        End Property

        Public Property UNDG() As String
            Get
                Return Me._uNDG
            End Get
            Set
                Me._uNDG = Value
            End Set
        End Property

        Public Property consigneeEndUserFlag() As String
            Get
                Return Me._consigneeEndUserFlag
            End Get
            Set
                Me._consigneeEndUserFlag = Value
            End Set
        End Property

        Public Property endUserInEam() As TInvoiceLineEndUserInEam
            Get
                Return Me._endUserInEam
            End Get
            Set
                Me._endUserInEam = Value
            End Set
        End Property

        Public Property carriageCosts() As String
            Get
                Return Me._carriageCosts
            End Get
            Set
                Me._carriageCosts = Value
            End Set
        End Property

        Public Property shipTo() As TInvoiceLineShipTo
            Get
                Return Me._shipTo
            End Get
            Set
                Me._shipTo = Value
            End Set
        End Property

        Public Property endUser() As TInvoiceLineEndUser
            Get
                Return Me._endUser
            End Get
            Set
                Me._endUser = Value
            End Set
        End Property

        <XmlElement("importReference")>
        Public Property importReference() As List(Of TImportReference)
            Get
                Return Me._importReference
            End Get
            Set
                Me._importReference = Value
            End Set
        End Property

        Public Property registrationInfo() As TRegInfo
            Get
                Return Me._registrationInfo
            End Get
            Set
                Me._registrationInfo = Value
            End Set
        End Property

        Public Property serialNo() As String
            Get
                Return Me._serialNo
            End Get
            Set
                Me._serialNo = Value
            End Set
        End Property

        Public Property referenceValue() As Decimal
            Get
                Return Me._referenceValue
            End Get
            Set
                Me._referenceValue = Value
            End Set
        End Property

        Public Property model() As String
            Get
                Return Me._model
            End Get
            Set
                Me._model = Value
            End Set
        End Property

        Public Property brand() As String
            Get
                Return Me._brand
            End Get
            Set
                Me._brand = Value
            End Set
        End Property

        Public Property addedValue() As Decimal
            Get
                Return Me._addedValue
            End Get
            Set
                Me._addedValue = Value
            End Set
        End Property

        Public Property ctoId() As String
            Get
                Return Me._ctoId
            End Get
            Set
                Me._ctoId = Value
            End Set
        End Property

        Public Property infoText2() As String
            Get
                Return Me._infoText2
            End Get
            Set
                Me._infoText2 = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        <XmlElement("additionalInformation")>
        Public Property additionalInformation() As List(Of TAttribute)
            Get
                Return Me._additionalInformation
            End Get
            Set
                Me._additionalInformation = Value
            End Set
        End Property

        Public Property trackingNumber() As String
            Get
                Return Me._trackingNumber
            End Get
            Set
                Me._trackingNumber = Value
            End Set
        End Property

        Public Property erpData() As TErpLineData
            Get
                Return Me._erpData
            End Get
            Set
                Me._erpData = Value
            End Set
        End Property

        Public Property outwardProcessing() As TInvoiceLineOutwardProcessing
            Get
                Return Me._outwardProcessing
            End Get
            Set
                Me._outwardProcessing = Value
            End Set
        End Property

        <XmlElement("partners")>
        Public Property partners() As List(Of TPartner)
            Get
                Return Me._partners
            End Get
            Set
                Me._partners = Value
            End Set
        End Property

        <XmlElement("authorisations")>
        Public Property authorisations() As List(Of TAuthorisation)
            Get
                Return Me._authorisations
            End Get
            Set
                Me._authorisations = Value
            End Set
        End Property

        Public Property eudr() As TInvoiceLineEudr
            Get
                Return Me._eudr
            End Get
            Set
                Me._eudr = Value
            End Set
        End Property

        Public Property Duties() As TMicDuties
            Get
                Return Me._duties
            End Get
            Set
                Me._duties = Value
            End Set
        End Property

        Public Property DutyTaxes() As TMicDutyTaxes
            Get
                Return Me._dutyTaxes
            End Get
            Set
                Me._dutyTaxes = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLine))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLine object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLine object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLine object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLine, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLine)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLine) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLine
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLine)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLine
            Return CType(SerializerXml.Deserialize(s), TInvoiceLine)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLine object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLine object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLine object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineTaricAddCode

#Region "Private fields"
        Private _additionalCode As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        <XmlElement(DataType:="integer")>
        Public Property additionalCode() As String
            Get
                Return Me._additionalCode
            End Get
            Set
                Me._additionalCode = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineTaricAddCode))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineTaricAddCode object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineTaricAddCode object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineTaricAddCode object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineTaricAddCode, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineTaricAddCode)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineTaricAddCode) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineTaricAddCode
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineTaricAddCode)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineTaricAddCode
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineTaricAddCode)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineTaricAddCode object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineTaricAddCode object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineTaricAddCode object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineTaricAddCode, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineTaricAddCode)
            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 TInvoiceLineTaricAddCode) 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 TInvoiceLineTaricAddCode
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineDangerousGoods

#Region "Private fields"
        Private _unNumber As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property unNumber() As String
            Get
                Return Me._unNumber
            End Get
            Set
                Me._unNumber = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineDangerousGoods))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineDangerousGoods object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineDangerousGoods object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineDangerousGoods object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineDangerousGoods, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineDangerousGoods)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineDangerousGoods) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineDangerousGoods
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineDangerousGoods)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineDangerousGoods
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineDangerousGoods)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineDangerousGoods object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineDangerousGoods object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineDangerousGoods object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineDangerousGoods, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineDangerousGoods)
            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 TInvoiceLineDangerousGoods) 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 TInvoiceLineDangerousGoods
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TDocuments

#Region "Private fields"
        Private _docNo As String

        Private _docDate As Date

        Private _docType As String

        Private _docQual As String

        Private _docValidFrom As Date

        Private _docValidTo As Date

        Private _docAddText As String

        Private _docQuantity As Decimal

        Private _docUnit As String

        Private _docDetail As String

        Private _docValue As Decimal

        Private _docUnitQual As String

        Private _docStatUnit As String

        Private _docDepreciateQuantity As Decimal

        Private _docSupplier As String

        Private _docSupplierName As String

        Private _docCategory As String

        Private _docCurrency As String

        Private _docLineItemNo As Integer

        Private _docQuantityMax As Decimal

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property docNo() As String
            Get
                Return Me._docNo
            End Get
            Set
                Me._docNo = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property docDate() As Date
            Get
                Return Me._docDate
            End Get
            Set
                Me._docDate = Value
            End Set
        End Property

        Public Property docType() As String
            Get
                Return Me._docType
            End Get
            Set
                Me._docType = Value
            End Set
        End Property

        Public Property docQual() As String
            Get
                Return Me._docQual
            End Get
            Set
                Me._docQual = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property docValidFrom() As Date
            Get
                Return Me._docValidFrom
            End Get
            Set
                Me._docValidFrom = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property docValidTo() As Date
            Get
                Return Me._docValidTo
            End Get
            Set
                Me._docValidTo = Value
            End Set
        End Property

        Public Property docAddText() As String
            Get
                Return Me._docAddText
            End Get
            Set
                Me._docAddText = Value
            End Set
        End Property

        Public Property docQuantity() As Decimal
            Get
                Return Me._docQuantity
            End Get
            Set
                Me._docQuantity = Value
            End Set
        End Property

        Public Property docUnit() As String
            Get
                Return Me._docUnit
            End Get
            Set
                Me._docUnit = Value
            End Set
        End Property

        Public Property docDetail() As String
            Get
                Return Me._docDetail
            End Get
            Set
                Me._docDetail = Value
            End Set
        End Property

        Public Property docValue() As Decimal
            Get
                Return Me._docValue
            End Get
            Set
                Me._docValue = Value
            End Set
        End Property

        Public Property docUnitQual() As String
            Get
                Return Me._docUnitQual
            End Get
            Set
                Me._docUnitQual = Value
            End Set
        End Property

        Public Property docStatUnit() As String
            Get
                Return Me._docStatUnit
            End Get
            Set
                Me._docStatUnit = Value
            End Set
        End Property

        Public Property docDepreciateQuantity() As Decimal
            Get
                Return Me._docDepreciateQuantity
            End Get
            Set
                Me._docDepreciateQuantity = Value
            End Set
        End Property

        Public Property docSupplier() As String
            Get
                Return Me._docSupplier
            End Get
            Set
                Me._docSupplier = Value
            End Set
        End Property

        Public Property docSupplierName() As String
            Get
                Return Me._docSupplierName
            End Get
            Set
                Me._docSupplierName = Value
            End Set
        End Property

        Public Property docCategory() As String
            Get
                Return Me._docCategory
            End Get
            Set
                Me._docCategory = Value
            End Set
        End Property

        Public Property docCurrency() As String
            Get
                Return Me._docCurrency
            End Get
            Set
                Me._docCurrency = Value
            End Set
        End Property

        Public Property docLineItemNo() As Integer
            Get
                Return Me._docLineItemNo
            End Get
            Set
                Me._docLineItemNo = Value
            End Set
        End Property

        Public Property docQuantityMax() As Decimal
            Get
                Return Me._docQuantityMax
            End Get
            Set
                Me._docQuantityMax = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TDocuments))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TDocuments object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TDocuments object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TDocuments object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDocuments, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDocuments)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDocuments) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TDocuments
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TDocuments)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TDocuments
            Return CType(SerializerXml.Deserialize(s), TDocuments)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TDocuments object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TDocuments object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TDocuments object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TDocuments, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDocuments)
            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 TDocuments) 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 TDocuments
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineDelTerm

#Region "Private fields"
        Private _code As String

        Private _desc As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        Public Property desc() As String
            Get
                Return Me._desc
            End Get
            Set
                Me._desc = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineDelTerm))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineDelTerm object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineDelTerm object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineDelTerm object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineDelTerm, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineDelTerm)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineDelTerm) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineDelTerm
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineDelTerm)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineDelTerm
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineDelTerm)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineDelTerm object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineDelTerm object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineDelTerm object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineDelTerm, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineDelTerm)
            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 TInvoiceLineDelTerm) 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 TInvoiceLineDelTerm
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TAddCosts

#Region "Private fields"
        Private _type As String

        Private _flag As TAddCostsFlag

        Private _amount As Decimal

        Private _curr As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property flag() As TAddCostsFlag
            Get
                Return Me._flag
            End Get
            Set
                Me._flag = Value
            End Set
        End Property

        Public Property amount() As Decimal
            Get
                Return Me._amount
            End Get
            Set
                Me._amount = Value
            End Set
        End Property

        Public Property curr() As String
            Get
                Return Me._curr
            End Get
            Set
                Me._curr = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TAddCosts))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TAddCosts object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TAddCosts object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TAddCosts object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAddCosts, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAddCosts)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAddCosts) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TAddCosts
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TAddCosts)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TAddCosts
            Return CType(SerializerXml.Deserialize(s), TAddCosts)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TAddCosts object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TAddCosts object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TAddCosts object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Public Enum TAddCostsFlag

        P

        V
    End Enum

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomerFields

#Region "Private fields"
        Private _texts As List(Of TCustomerText)

        Private _dates As List(Of TCustomerDate)

        Private _flags As List(Of TCustomerFlag)

        Private _numbers As List(Of TCustomerNumber)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._numbers = New List(Of TCustomerNumber)()
            Me._flags = New List(Of TCustomerFlag)()
            Me._dates = New List(Of TCustomerDate)()
            Me._texts = New List(Of TCustomerText)()
        End Sub

        <XmlArrayItem("text", IsNullable:=False)>
        Public Property texts() As List(Of TCustomerText)
            Get
                Return Me._texts
            End Get
            Set
                Me._texts = Value
            End Set
        End Property

        <XmlArrayItem("date", IsNullable:=False)>
        Public Property dates() As List(Of TCustomerDate)
            Get
                Return Me._dates
            End Get
            Set
                Me._dates = Value
            End Set
        End Property

        <XmlArrayItem("flag", IsNullable:=False)>
        Public Property flags() As List(Of TCustomerFlag)
            Get
                Return Me._flags
            End Get
            Set
                Me._flags = Value
            End Set
        End Property

        <XmlArrayItem("number", IsNullable:=False)>
        Public Property numbers() As List(Of TCustomerNumber)
            Get
                Return Me._numbers
            End Get
            Set
                Me._numbers = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFields))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomerFields object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomerFields object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomerFields object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerFields, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomerFields)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerFields) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomerFields
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomerFields)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomerFields
            Return CType(SerializerXml.Deserialize(s), TCustomerFields)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomerFields object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomerFields object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomerFields object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomerText

#Region "Private fields"
        Private _key As Integer

        Private _value As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property key() As Integer
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        Public Property value() As String
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerText))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomerText object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomerText object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomerText object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerText, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomerText)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerText) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomerText
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomerText)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomerText
            Return CType(SerializerXml.Deserialize(s), TCustomerText)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomerText object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomerText object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomerText object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomerDate

#Region "Private fields"
        Private _key As Integer

        Private _value As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property key() As Integer
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        Public Property value() As Date
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerDate))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomerDate object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomerDate object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomerDate object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerDate, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomerDate)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerDate) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomerDate
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomerDate)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomerDate
            Return CType(SerializerXml.Deserialize(s), TCustomerDate)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomerDate object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomerDate object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomerDate object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomerFlag

#Region "Private fields"
        Private _key As Integer

        Private _value As Boolean

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property key() As Integer
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        Public Property value() As Boolean
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFlag))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomerFlag object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomerFlag object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomerFlag object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerFlag, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomerFlag)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerFlag) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomerFlag
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomerFlag)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomerFlag
            Return CType(SerializerXml.Deserialize(s), TCustomerFlag)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomerFlag object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomerFlag object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomerFlag object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomerNumber

#Region "Private fields"
        Private _key As Integer

        Private _value As Decimal

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property key() As Integer
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        Public Property value() As Decimal
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerNumber))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomerNumber object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomerNumber object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomerNumber object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerNumber, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomerNumber)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomerNumber) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomerNumber
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomerNumber)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomerNumber
            Return CType(SerializerXml.Deserialize(s), TCustomerNumber)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomerNumber object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomerNumber object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomerNumber object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TAttribute

#Region "Private fields"
        Private _attribType As String

        Private _attribText As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property attribType() As String
            Get
                Return Me._attribType
            End Get
            Set
                Me._attribType = Value
            End Set
        End Property

        Public Property attribText() As String
            Get
                Return Me._attribText
            End Get
            Set
                Me._attribText = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TAttribute))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TAttribute object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TAttribute object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TAttribute object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAttribute, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAttribute)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAttribute) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TAttribute
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TAttribute)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TAttribute
            Return CType(SerializerXml.Deserialize(s), TAttribute)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TAttribute object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TAttribute object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TAttribute object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TContainer

#Region "Private fields"
        Private _contNo As String

        Private _contType As String

        Private _sealNumber As String

        Private _goodsReference As List(Of TContainerGoodsReference)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._goodsReference = New List(Of TContainerGoodsReference)()
        End Sub

        Public Property contNo() As String
            Get
                Return Me._contNo
            End Get
            Set
                Me._contNo = Value
            End Set
        End Property

        Public Property contType() As String
            Get
                Return Me._contType
            End Get
            Set
                Me._contType = Value
            End Set
        End Property

        Public Property sealNumber() As String
            Get
                Return Me._sealNumber
            End Get
            Set
                Me._sealNumber = Value
            End Set
        End Property

        <XmlElement("goodsReference")>
        Public Property goodsReference() As List(Of TContainerGoodsReference)
            Get
                Return Me._goodsReference
            End Get
            Set
                Me._goodsReference = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TContainer))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TContainer object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TContainer object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TContainer object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContainer, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TContainer)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContainer) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TContainer
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TContainer)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TContainer
            Return CType(SerializerXml.Deserialize(s), TContainer)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TContainer object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TContainer object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TContainer object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TContainerGoodsReference

#Region "Private fields"
        Private _itemNumber As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        <XmlElement(DataType:="integer")>
        Public Property itemNumber() As String
            Get
                Return Me._itemNumber
            End Get
            Set
                Me._itemNumber = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TContainerGoodsReference))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TContainerGoodsReference object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TContainerGoodsReference object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TContainerGoodsReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContainerGoodsReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TContainerGoodsReference)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContainerGoodsReference) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TContainerGoodsReference
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TContainerGoodsReference)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TContainerGoodsReference
            Return CType(SerializerXml.Deserialize(s), TContainerGoodsReference)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TContainerGoodsReference object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TContainerGoodsReference object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TContainerGoodsReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TContainerGoodsReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TContainerGoodsReference)
            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 TContainerGoodsReference) 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 TContainerGoodsReference
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Public Enum TInvoiceLineEndUserInEam

        <XmlEnum("")>
        Item

        <XmlEnum("0")>
        Item0

        <XmlEnum("1")>
        Item1
    End Enum

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineShipTo

#Region "Private fields"
        Private _addrNo As String

        Private _addrName As List(Of String)

        Private _addrStreet As String

        Private _addrLoc As String

        Private _addrCtry As String

        Private _addrState As String

        Private _addrZip As String

        Private _addrTin As String

        Private _addrEori As String

        Private _addrNatT As String

        Private _branchNo As String

        Private _addrKvb As String

        Private _contactPerson As TContactPerson

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._contactPerson = New TContactPerson()
            Me._addrName = New List(Of String)()
        End Sub

        Public Property addrNo() As String
            Get
                Return Me._addrNo
            End Get
            Set
                Me._addrNo = Value
            End Set
        End Property

        <XmlElement("addrName")>
        Public Property addrName() As List(Of String)
            Get
                Return Me._addrName
            End Get
            Set
                Me._addrName = Value
            End Set
        End Property

        Public Property addrStreet() As String
            Get
                Return Me._addrStreet
            End Get
            Set
                Me._addrStreet = Value
            End Set
        End Property

        Public Property addrLoc() As String
            Get
                Return Me._addrLoc
            End Get
            Set
                Me._addrLoc = Value
            End Set
        End Property

        Public Property addrCtry() As String
            Get
                Return Me._addrCtry
            End Get
            Set
                Me._addrCtry = Value
            End Set
        End Property

        Public Property addrState() As String
            Get
                Return Me._addrState
            End Get
            Set
                Me._addrState = Value
            End Set
        End Property

        Public Property addrZip() As String
            Get
                Return Me._addrZip
            End Get
            Set
                Me._addrZip = Value
            End Set
        End Property

        Public Property addrTin() As String
            Get
                Return Me._addrTin
            End Get
            Set
                Me._addrTin = Value
            End Set
        End Property

        Public Property addrEori() As String
            Get
                Return Me._addrEori
            End Get
            Set
                Me._addrEori = Value
            End Set
        End Property

        Public Property addrNatT() As String
            Get
                Return Me._addrNatT
            End Get
            Set
                Me._addrNatT = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        Public Property addrKvb() As String
            Get
                Return Me._addrKvb
            End Get
            Set
                Me._addrKvb = Value
            End Set
        End Property

        Public Property contactPerson() As TContactPerson
            Get
                Return Me._contactPerson
            End Get
            Set
                Me._contactPerson = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineShipTo))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineShipTo object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineShipTo object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineShipTo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineShipTo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineShipTo)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineShipTo) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineShipTo
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineShipTo)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineShipTo
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineShipTo)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineShipTo object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineShipTo object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineShipTo object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineShipTo, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineShipTo)
            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 TInvoiceLineShipTo) 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 TInvoiceLineShipTo
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TContactPerson

#Region "Private fields"
        Private _job As String

        Private _name As String

        Private _email As String

        Private _phone As String

        Private _fax As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property job() As String
            Get
                Return Me._job
            End Get
            Set
                Me._job = Value
            End Set
        End Property

        Public Property name() As String
            Get
                Return Me._name
            End Get
            Set
                Me._name = Value
            End Set
        End Property

        Public Property email() As String
            Get
                Return Me._email
            End Get
            Set
                Me._email = Value
            End Set
        End Property

        Public Property phone() As String
            Get
                Return Me._phone
            End Get
            Set
                Me._phone = Value
            End Set
        End Property

        Public Property fax() As String
            Get
                Return Me._fax
            End Get
            Set
                Me._fax = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TContactPerson))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TContactPerson object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TContactPerson object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TContactPerson object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContactPerson, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TContactPerson)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TContactPerson) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TContactPerson
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TContactPerson)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TContactPerson
            Return CType(SerializerXml.Deserialize(s), TContactPerson)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TContactPerson object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TContactPerson object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TContactPerson object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TContactPerson, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TContactPerson)
            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 TContactPerson) 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 TContactPerson
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineEndUser

#Region "Private fields"
        Private _addrNo As String

        Private _addrName As List(Of String)

        Private _addrStreet As String

        Private _addrLoc As String

        Private _addrCtry As String

        Private _addrZip As String

        Private _addrTin As String

        Private _addrEori As String

        Private _addrNatT As String

        Private _branchNo As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._addrName = New List(Of String)()
        End Sub

        Public Property addrNo() As String
            Get
                Return Me._addrNo
            End Get
            Set
                Me._addrNo = Value
            End Set
        End Property

        <XmlElement("addrName")>
        Public Property addrName() As List(Of String)
            Get
                Return Me._addrName
            End Get
            Set
                Me._addrName = Value
            End Set
        End Property

        Public Property addrStreet() As String
            Get
                Return Me._addrStreet
            End Get
            Set
                Me._addrStreet = Value
            End Set
        End Property

        Public Property addrLoc() As String
            Get
                Return Me._addrLoc
            End Get
            Set
                Me._addrLoc = Value
            End Set
        End Property

        Public Property addrCtry() As String
            Get
                Return Me._addrCtry
            End Get
            Set
                Me._addrCtry = Value
            End Set
        End Property

        Public Property addrZip() As String
            Get
                Return Me._addrZip
            End Get
            Set
                Me._addrZip = Value
            End Set
        End Property

        Public Property addrTin() As String
            Get
                Return Me._addrTin
            End Get
            Set
                Me._addrTin = Value
            End Set
        End Property

        Public Property addrEori() As String
            Get
                Return Me._addrEori
            End Get
            Set
                Me._addrEori = Value
            End Set
        End Property

        Public Property addrNatT() As String
            Get
                Return Me._addrNatT
            End Get
            Set
                Me._addrNatT = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineEndUser))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineEndUser object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineEndUser object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineEndUser object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineEndUser, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineEndUser)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineEndUser) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineEndUser
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineEndUser)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineEndUser
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineEndUser)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineEndUser object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineEndUser object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineEndUser object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineEndUser, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineEndUser)
            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 TInvoiceLineEndUser) 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 TInvoiceLineEndUser
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineOutwardProcessing

#Region "Private fields"
        Private _replacement As String

        Private _reimportDate As Date

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property replacement() As String
            Get
                Return Me._replacement
            End Get
            Set
                Me._replacement = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property reimportDate() As Date
            Get
                Return Me._reimportDate
            End Get
            Set
                Me._reimportDate = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineOutwardProcessing))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineOutwardProcessing object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineOutwardProcessing object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineOutwardProcessing object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineOutwardProcessing, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineOutwardProcessing)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineOutwardProcessing) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineOutwardProcessing
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineOutwardProcessing)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineOutwardProcessing
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineOutwardProcessing)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineOutwardProcessing object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineOutwardProcessing object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineOutwardProcessing object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineOutwardProcessing, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineOutwardProcessing)
            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 TInvoiceLineOutwardProcessing) 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 TInvoiceLineOutwardProcessing
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPartner

#Region "Private fields"
        Private _partnerTyp As String

        Private _partnerAddress As TPartnerPartnerAddress

        Private _partnerRelation As String

        Private _customerFields As TCustomerFields

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._customerFields = New TCustomerFields()
            Me._partnerAddress = New TPartnerPartnerAddress()
        End Sub

        Public Property partnerTyp() As String
            Get
                Return Me._partnerTyp
            End Get
            Set
                Me._partnerTyp = Value
            End Set
        End Property

        Public Property partnerAddress() As TPartnerPartnerAddress
            Get
                Return Me._partnerAddress
            End Get
            Set
                Me._partnerAddress = Value
            End Set
        End Property

        Public Property partnerRelation() As String
            Get
                Return Me._partnerRelation
            End Get
            Set
                Me._partnerRelation = Value
            End Set
        End Property

        Public Property customerFields() As TCustomerFields
            Get
                Return Me._customerFields
            End Get
            Set
                Me._customerFields = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPartner))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPartner object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPartner object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPartner object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPartner, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPartner)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPartner) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPartner
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPartner)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPartner
            Return CType(SerializerXml.Deserialize(s), TPartner)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPartner object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPartner object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPartner object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TPartnerPartnerAddress

#Region "Private fields"
        Private _addrNo As String

        Private _addrNoType As String

        Private _addrName As List(Of String)

        Private _addrStreet As String

        Private _addrStreet2 As String

        Private _addrLoc As String

        Private _addrCtry As String

        Private _addrState As String

        Private _addrZip As String

        Private _addrTin As String

        Private _addrEori As String

        Private _addrNatT As String

        Private _branchNo As String

        Private _addrKvb As String

        Private _addrInfo As String

        Private _addrRole As String

        Private _contactPerson As TContactPerson

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._contactPerson = New TContactPerson()
            Me._addrName = New List(Of String)()
        End Sub

        Public Property addrNo() As String
            Get
                Return Me._addrNo
            End Get
            Set
                Me._addrNo = Value
            End Set
        End Property

        Public Property addrNoType() As String
            Get
                Return Me._addrNoType
            End Get
            Set
                Me._addrNoType = Value
            End Set
        End Property

        <XmlElement("addrName")>
        Public Property addrName() As List(Of String)
            Get
                Return Me._addrName
            End Get
            Set
                Me._addrName = Value
            End Set
        End Property

        Public Property addrStreet() As String
            Get
                Return Me._addrStreet
            End Get
            Set
                Me._addrStreet = Value
            End Set
        End Property

        Public Property addrStreet2() As String
            Get
                Return Me._addrStreet2
            End Get
            Set
                Me._addrStreet2 = Value
            End Set
        End Property

        Public Property addrLoc() As String
            Get
                Return Me._addrLoc
            End Get
            Set
                Me._addrLoc = Value
            End Set
        End Property

        Public Property addrCtry() As String
            Get
                Return Me._addrCtry
            End Get
            Set
                Me._addrCtry = Value
            End Set
        End Property

        Public Property addrState() As String
            Get
                Return Me._addrState
            End Get
            Set
                Me._addrState = Value
            End Set
        End Property

        Public Property addrZip() As String
            Get
                Return Me._addrZip
            End Get
            Set
                Me._addrZip = Value
            End Set
        End Property

        Public Property addrTin() As String
            Get
                Return Me._addrTin
            End Get
            Set
                Me._addrTin = Value
            End Set
        End Property

        Public Property addrEori() As String
            Get
                Return Me._addrEori
            End Get
            Set
                Me._addrEori = Value
            End Set
        End Property

        Public Property addrNatT() As String
            Get
                Return Me._addrNatT
            End Get
            Set
                Me._addrNatT = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        Public Property addrKvb() As String
            Get
                Return Me._addrKvb
            End Get
            Set
                Me._addrKvb = Value
            End Set
        End Property

        Public Property addrInfo() As String
            Get
                Return Me._addrInfo
            End Get
            Set
                Me._addrInfo = Value
            End Set
        End Property

        Public Property addrRole() As String
            Get
                Return Me._addrRole
            End Get
            Set
                Me._addrRole = Value
            End Set
        End Property

        Public Property contactPerson() As TContactPerson
            Get
                Return Me._contactPerson
            End Get
            Set
                Me._contactPerson = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TPartnerPartnerAddress))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TPartnerPartnerAddress object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TPartnerPartnerAddress object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TPartnerPartnerAddress object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPartnerPartnerAddress, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPartnerPartnerAddress)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TPartnerPartnerAddress) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TPartnerPartnerAddress
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TPartnerPartnerAddress)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TPartnerPartnerAddress
            Return CType(SerializerXml.Deserialize(s), TPartnerPartnerAddress)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TPartnerPartnerAddress object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TPartnerPartnerAddress object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TPartnerPartnerAddress object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TPartnerPartnerAddress, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TPartnerPartnerAddress)
            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 TPartnerPartnerAddress) 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 TPartnerPartnerAddress
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TAuthorisation

#Region "Private fields"
        Private _type As String

        Private _referenceNumber As String

        Private _id As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property referenceNumber() As String
            Get
                Return Me._referenceNumber
            End Get
            Set
                Me._referenceNumber = Value
            End Set
        End Property

        Public Property id() As String
            Get
                Return Me._id
            End Get
            Set
                Me._id = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TAuthorisation))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TAuthorisation object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TAuthorisation object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TAuthorisation object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAuthorisation, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAuthorisation)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAuthorisation) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TAuthorisation
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TAuthorisation)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TAuthorisation
            Return CType(SerializerXml.Deserialize(s), TAuthorisation)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TAuthorisation object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TAuthorisation object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TAuthorisation object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAuthorisation, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAuthorisation)
            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 TAuthorisation) 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 TAuthorisation
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceLineEudr

#Region "Private fields"
        Private _supplierNumber As String

        Private _countryOfProduction As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property supplierNumber() As String
            Get
                Return Me._supplierNumber
            End Get
            Set
                Me._supplierNumber = Value
            End Set
        End Property

        Public Property countryOfProduction() As String
            Get
                Return Me._countryOfProduction
            End Get
            Set
                Me._countryOfProduction = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineEudr))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceLineEudr object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceLineEudr object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceLineEudr object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineEudr, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineEudr)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceLineEudr) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceLineEudr
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineEudr)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceLineEudr
            Return CType(SerializerXml.Deserialize(s), TInvoiceLineEudr)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceLineEudr object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceLineEudr object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceLineEudr object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceLineEudr, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceLineEudr)
            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 TInvoiceLineEudr) 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 TInvoiceLineEudr
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TDelTerm

#Region "Private fields"
        Private _code As String

        Private _unlocode As String

        Private _desc As String

        Private _country As String

        Private _text As String

        Private _code2 As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        Public Property unlocode() As String
            Get
                Return Me._unlocode
            End Get
            Set
                Me._unlocode = Value
            End Set
        End Property

        Public Property desc() As String
            Get
                Return Me._desc
            End Get
            Set
                Me._desc = Value
            End Set
        End Property

        Public Property country() As String
            Get
                Return Me._country
            End Get
            Set
                Me._country = Value
            End Set
        End Property

        Public Property text() As String
            Get
                Return Me._text
            End Get
            Set
                Me._text = Value
            End Set
        End Property

        Public Property code2() As String
            Get
                Return Me._code2
            End Get
            Set
                Me._code2 = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TDelTerm))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TDelTerm object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TDelTerm object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TDelTerm object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDelTerm, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDelTerm)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDelTerm) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TDelTerm
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TDelTerm)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TDelTerm
            Return CType(SerializerXml.Deserialize(s), TDelTerm)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TDelTerm object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TDelTerm object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TDelTerm object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TAddress

#Region "Private fields"
        Private _addrNo As String

        Private _addrName As List(Of String)

        Private _addrStreet As String

        Private _addrLoc As String

        Private _addrCtry As String

        Private _addrState As String

        Private _addrZip As String

        Private _addrTin As String

        Private _addrVatId As String

        Private _addrEori As String

        Private _addrNatT As String

        Private _branchNo As String

        Private _addrKvb As String

        Private _contactPerson As TContactPerson

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._contactPerson = New TContactPerson()
            Me._addrName = New List(Of String)()
        End Sub

        Public Property addrNo() As String
            Get
                Return Me._addrNo
            End Get
            Set
                Me._addrNo = Value
            End Set
        End Property

        <XmlElement("addrName")>
        Public Property addrName() As List(Of String)
            Get
                Return Me._addrName
            End Get
            Set
                Me._addrName = Value
            End Set
        End Property

        Public Property addrStreet() As String
            Get
                Return Me._addrStreet
            End Get
            Set
                Me._addrStreet = Value
            End Set
        End Property

        Public Property addrLoc() As String
            Get
                Return Me._addrLoc
            End Get
            Set
                Me._addrLoc = Value
            End Set
        End Property

        Public Property addrCtry() As String
            Get
                Return Me._addrCtry
            End Get
            Set
                Me._addrCtry = Value
            End Set
        End Property

        Public Property addrState() As String
            Get
                Return Me._addrState
            End Get
            Set
                Me._addrState = Value
            End Set
        End Property

        Public Property addrZip() As String
            Get
                Return Me._addrZip
            End Get
            Set
                Me._addrZip = Value
            End Set
        End Property

        Public Property addrTin() As String
            Get
                Return Me._addrTin
            End Get
            Set
                Me._addrTin = Value
            End Set
        End Property

        Public Property addrVatId() As String
            Get
                Return Me._addrVatId
            End Get
            Set
                Me._addrVatId = Value
            End Set
        End Property

        Public Property addrEori() As String
            Get
                Return Me._addrEori
            End Get
            Set
                Me._addrEori = Value
            End Set
        End Property

        Public Property addrNatT() As String
            Get
                Return Me._addrNatT
            End Get
            Set
                Me._addrNatT = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        Public Property addrKvb() As String
            Get
                Return Me._addrKvb
            End Get
            Set
                Me._addrKvb = Value
            End Set
        End Property

        Public Property contactPerson() As TContactPerson
            Get
                Return Me._contactPerson
            End Get
            Set
                Me._contactPerson = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TAddress))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TAddress object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TAddress object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TAddress object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAddress, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAddress)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAddress) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TAddress
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TAddress)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TAddress
            Return CType(SerializerXml.Deserialize(s), TAddress)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TAddress object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TAddress object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TAddress object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceHead

#Region "Private fields"
        Private _invoiceNo As String

        Private _invoiceVersion As String

        Private _invoiceDate As Date

        Private _invType As String

        Private _totAmount As Decimal

        Private _curr As String

        Private _exchangeRate As Decimal

        Private _shipTo As TAddress

        Private _endUser As TInvoiceHeadEndUser

        Private _delTerm As TDelTerm

        Private _billTo As TAddress

        Private _ref As String

        Private _tradeCtry As String

        Private _gWeight As Decimal

        Private _nWeight As Decimal

        Private _addCosts As List(Of TAddCosts)

        Private _bol As String

        Private _transpNr As String

        Private _addtext As List(Of String)

        Private _documents As List(Of TDocuments)

        Private _mrnExt As String

        Private _numberOfPackages As Decimal

        Private _packageDescription As String

        Private _transportType As String

        Private _invoiceReferenceNumber As String

        Private _nctsIndicator As Boolean

        Private _deliveryType As String

        Private _crossingBorderDate As Date

        Private _customerFields As TCustomerFields

        Private _partners As List(Of TPartner)

        Private _attributes As List(Of TAttribute)

        Private _natureOfTransaction As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._attributes = New List(Of TAttribute)()
            Me._partners = New List(Of TPartner)()
            Me._customerFields = New TCustomerFields()
            Me._documents = New List(Of TDocuments)()
            Me._addtext = New List(Of String)()
            Me._addCosts = New List(Of TAddCosts)()
            Me._billTo = New TAddress()
            Me._delTerm = New TDelTerm()
            Me._endUser = New TInvoiceHeadEndUser()
            Me._shipTo = New TAddress()
            Me._invoiceVersion = "1"
        End Sub

        Public Property invoiceNo() As String
            Get
                Return Me._invoiceNo
            End Get
            Set
                Me._invoiceNo = Value
            End Set
        End Property

        <System.ComponentModel.DefaultValue("1")>
        Public Property invoiceVersion() As String
            Get
                Return Me._invoiceVersion
            End Get
            Set
                Me._invoiceVersion = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property invoiceDate() As Date
            Get
                Return Me._invoiceDate
            End Get
            Set
                Me._invoiceDate = Value
            End Set
        End Property

        Public Property invType() As String
            Get
                Return Me._invType
            End Get
            Set
                Me._invType = Value
            End Set
        End Property

        Public Property totAmount() As Decimal
            Get
                Return Me._totAmount
            End Get
            Set
                Me._totAmount = Value
            End Set
        End Property

        Public Property curr() As String
            Get
                Return Me._curr
            End Get
            Set
                Me._curr = Value
            End Set
        End Property

        Public Property exchangeRate() As Decimal
            Get
                Return Me._exchangeRate
            End Get
            Set
                Me._exchangeRate = Value
            End Set
        End Property

        Public Property shipTo() As TAddress
            Get
                Return Me._shipTo
            End Get
            Set
                Me._shipTo = Value
            End Set
        End Property

        Public Property endUser() As TInvoiceHeadEndUser
            Get
                Return Me._endUser
            End Get
            Set
                Me._endUser = Value
            End Set
        End Property

        Public Property delTerm() As TDelTerm
            Get
                Return Me._delTerm
            End Get
            Set
                Me._delTerm = Value
            End Set
        End Property

        Public Property billTo() As TAddress
            Get
                Return Me._billTo
            End Get
            Set
                Me._billTo = Value
            End Set
        End Property

        Public Property ref() As String
            Get
                Return Me._ref
            End Get
            Set
                Me._ref = Value
            End Set
        End Property

        Public Property tradeCtry() As String
            Get
                Return Me._tradeCtry
            End Get
            Set
                Me._tradeCtry = Value
            End Set
        End Property

        Public Property gWeight() As Decimal
            Get
                Return Me._gWeight
            End Get
            Set
                Me._gWeight = Value
            End Set
        End Property

        Public Property nWeight() As Decimal
            Get
                Return Me._nWeight
            End Get
            Set
                Me._nWeight = Value
            End Set
        End Property

        <XmlElement("addCosts")>
        Public Property addCosts() As List(Of TAddCosts)
            Get
                Return Me._addCosts
            End Get
            Set
                Me._addCosts = Value
            End Set
        End Property

        Public Property bol() As String
            Get
                Return Me._bol
            End Get
            Set
                Me._bol = Value
            End Set
        End Property

        Public Property transpNr() As String
            Get
                Return Me._transpNr
            End Get
            Set
                Me._transpNr = Value
            End Set
        End Property

        <XmlElement("addtext")>
        Public Property addtext() As List(Of String)
            Get
                Return Me._addtext
            End Get
            Set
                Me._addtext = Value
            End Set
        End Property

        <XmlElement("documents")>
        Public Property documents() As List(Of TDocuments)
            Get
                Return Me._documents
            End Get
            Set
                Me._documents = Value
            End Set
        End Property

        Public Property mrnExt() As String
            Get
                Return Me._mrnExt
            End Get
            Set
                Me._mrnExt = Value
            End Set
        End Property

        Public Property numberOfPackages() As Decimal
            Get
                Return Me._numberOfPackages
            End Get
            Set
                Me._numberOfPackages = Value
            End Set
        End Property

        Public Property packageDescription() As String
            Get
                Return Me._packageDescription
            End Get
            Set
                Me._packageDescription = Value
            End Set
        End Property

        Public Property transportType() As String
            Get
                Return Me._transportType
            End Get
            Set
                Me._transportType = Value
            End Set
        End Property

        Public Property invoiceReferenceNumber() As String
            Get
                Return Me._invoiceReferenceNumber
            End Get
            Set
                Me._invoiceReferenceNumber = Value
            End Set
        End Property

        Public Property nctsIndicator() As Boolean
            Get
                Return Me._nctsIndicator
            End Get
            Set
                Me._nctsIndicator = Value
            End Set
        End Property

        Public Property deliveryType() As String
            Get
                Return Me._deliveryType
            End Get
            Set
                Me._deliveryType = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property crossingBorderDate() As Date
            Get
                Return Me._crossingBorderDate
            End Get
            Set
                Me._crossingBorderDate = Value
            End Set
        End Property

        Public Property customerFields() As TCustomerFields
            Get
                Return Me._customerFields
            End Get
            Set
                Me._customerFields = Value
            End Set
        End Property

        <XmlElement("partners")>
        Public Property partners() As List(Of TPartner)
            Get
                Return Me._partners
            End Get
            Set
                Me._partners = Value
            End Set
        End Property

        <XmlElement("attributes")>
        Public Property attributes() As List(Of TAttribute)
            Get
                Return Me._attributes
            End Get
            Set
                Me._attributes = Value
            End Set
        End Property

        Public Property natureOfTransaction() As String
            Get
                Return Me._natureOfTransaction
            End Get
            Set
                Me._natureOfTransaction = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceHead))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceHead object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceHead object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceHead, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceHead)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceHead) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceHead
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceHead)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceHead
            Return CType(SerializerXml.Deserialize(s), TInvoiceHead)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceHead object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceHead object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoiceHeadEndUser

#Region "Private fields"
        Private _addrNo As String

        Private _addrName As List(Of String)

        Private _addrStreet As String

        Private _addrLoc As String

        Private _addrCtry As String

        Private _addrZip As String

        Private _addrTin As String

        Private _addrEori As String

        Private _addrNatT As String

        Private _branchNo As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._addrName = New List(Of String)()
        End Sub

        Public Property addrNo() As String
            Get
                Return Me._addrNo
            End Get
            Set
                Me._addrNo = Value
            End Set
        End Property

        <XmlElement("addrName")>
        Public Property addrName() As List(Of String)
            Get
                Return Me._addrName
            End Get
            Set
                Me._addrName = Value
            End Set
        End Property

        Public Property addrStreet() As String
            Get
                Return Me._addrStreet
            End Get
            Set
                Me._addrStreet = Value
            End Set
        End Property

        Public Property addrLoc() As String
            Get
                Return Me._addrLoc
            End Get
            Set
                Me._addrLoc = Value
            End Set
        End Property

        Public Property addrCtry() As String
            Get
                Return Me._addrCtry
            End Get
            Set
                Me._addrCtry = Value
            End Set
        End Property

        Public Property addrZip() As String
            Get
                Return Me._addrZip
            End Get
            Set
                Me._addrZip = Value
            End Set
        End Property

        Public Property addrTin() As String
            Get
                Return Me._addrTin
            End Get
            Set
                Me._addrTin = Value
            End Set
        End Property

        Public Property addrEori() As String
            Get
                Return Me._addrEori
            End Get
            Set
                Me._addrEori = Value
            End Set
        End Property

        Public Property addrNatT() As String
            Get
                Return Me._addrNatT
            End Get
            Set
                Me._addrNatT = Value
            End Set
        End Property

        Public Property branchNo() As String
            Get
                Return Me._branchNo
            End Get
            Set
                Me._branchNo = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceHeadEndUser))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoiceHeadEndUser object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoiceHeadEndUser object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoiceHeadEndUser object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceHeadEndUser, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceHeadEndUser)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoiceHeadEndUser) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoiceHeadEndUser
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoiceHeadEndUser)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoiceHeadEndUser
            Return CType(SerializerXml.Deserialize(s), TInvoiceHeadEndUser)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoiceHeadEndUser object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoiceHeadEndUser object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoiceHeadEndUser object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TInvoiceHeadEndUser, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoiceHeadEndUser)
            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 TInvoiceHeadEndUser) 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 TInvoiceHeadEndUser
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TInvoice

#Region "Private fields"
        Private _invoiceHead As TInvoiceHead

        Private _invoiceLine As List(Of TInvoiceLine)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._invoiceLine = New List(Of TInvoiceLine)()
            Me._invoiceHead = New TInvoiceHead()
        End Sub

        Public Property InvoiceHead() As TInvoiceHead
            Get
                Return Me._invoiceHead
            End Get
            Set
                Me._invoiceHead = Value
            End Set
        End Property

        <XmlElement("InvoiceLine")>
        Public Property InvoiceLine() As List(Of TInvoiceLine)
            Get
                Return Me._invoiceLine
            End Get
            Set
                Me._invoiceLine = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TInvoice))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TInvoice object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TInvoice object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TInvoice object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoice, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TInvoice)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TInvoice) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TInvoice
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TInvoice)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TInvoice
            Return CType(SerializerXml.Deserialize(s), TInvoice)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TInvoice object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TInvoice object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TInvoice object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentPreviousDocument

#Region "Private fields"
        Private _docType As String

        Private _docQual As String

        Private _docNo As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property docType() As String
            Get
                Return Me._docType
            End Get
            Set
                Me._docType = Value
            End Set
        End Property

        Public Property docQual() As String
            Get
                Return Me._docQual
            End Get
            Set
                Me._docQual = Value
            End Set
        End Property

        Public Property docNo() As String
            Get
                Return Me._docNo
            End Get
            Set
                Me._docNo = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentPreviousDocument))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentPreviousDocument object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentPreviousDocument object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentPreviousDocument object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentPreviousDocument, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentPreviousDocument)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentPreviousDocument) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentPreviousDocument
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentPreviousDocument)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentPreviousDocument
            Return CType(SerializerXml.Deserialize(s), TShipmentPreviousDocument)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentPreviousDocument object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentPreviousDocument object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentPreviousDocument object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentPreviousDocument, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentPreviousDocument)
            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 TShipmentPreviousDocument) 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 TShipmentPreviousDocument
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TErpShipmentData

#Region "Private fields"
        Private _erpSystemId As String

        Private _client As String

        Private _companyCode As String

        Private _customerId As String

        Private _consolidationCompanyId As String

        Private _accountGroup As String

        Private _shippingPoint As String

        Private _loadingPoint As String

        Private _offshore As Boolean

        Private _route As String

        Private _salesOrganization As String

        Private _distributionChannel As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property erpSystemId() As String
            Get
                Return Me._erpSystemId
            End Get
            Set
                Me._erpSystemId = Value
            End Set
        End Property

        Public Property client() As String
            Get
                Return Me._client
            End Get
            Set
                Me._client = Value
            End Set
        End Property

        Public Property companyCode() As String
            Get
                Return Me._companyCode
            End Get
            Set
                Me._companyCode = Value
            End Set
        End Property

        Public Property customerId() As String
            Get
                Return Me._customerId
            End Get
            Set
                Me._customerId = Value
            End Set
        End Property

        Public Property consolidationCompanyId() As String
            Get
                Return Me._consolidationCompanyId
            End Get
            Set
                Me._consolidationCompanyId = Value
            End Set
        End Property

        Public Property accountGroup() As String
            Get
                Return Me._accountGroup
            End Get
            Set
                Me._accountGroup = Value
            End Set
        End Property

        Public Property shippingPoint() As String
            Get
                Return Me._shippingPoint
            End Get
            Set
                Me._shippingPoint = Value
            End Set
        End Property

        Public Property loadingPoint() As String
            Get
                Return Me._loadingPoint
            End Get
            Set
                Me._loadingPoint = Value
            End Set
        End Property

        Public Property offshore() As Boolean
            Get
                Return Me._offshore
            End Get
            Set
                Me._offshore = Value
            End Set
        End Property

        Public Property route() As String
            Get
                Return Me._route
            End Get
            Set
                Me._route = Value
            End Set
        End Property

        Public Property salesOrganization() As String
            Get
                Return Me._salesOrganization
            End Get
            Set
                Me._salesOrganization = Value
            End Set
        End Property

        Public Property distributionChannel() As String
            Get
                Return Me._distributionChannel
            End Get
            Set
                Me._distributionChannel = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TErpShipmentData))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TErpShipmentData object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TErpShipmentData object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TErpShipmentData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErpShipmentData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErpShipmentData)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErpShipmentData) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TErpShipmentData
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TErpShipmentData)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TErpShipmentData
            Return CType(SerializerXml.Deserialize(s), TErpShipmentData)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TErpShipmentData object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TErpShipmentData object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TErpShipmentData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TErpShipmentData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErpShipmentData)
            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 TErpShipmentData) 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 TErpShipmentData
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TStateOfAffairs

#Region "Private fields"
        Private _stateOfAffairsCode As List(Of String)

        Private _text As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._stateOfAffairsCode = New List(Of String)()
        End Sub

        <XmlElement("stateOfAffairsCode")>
        Public Property stateOfAffairsCode() As List(Of String)
            Get
                Return Me._stateOfAffairsCode
            End Get
            Set
                Me._stateOfAffairsCode = Value
            End Set
        End Property

        Public Property text() As String
            Get
                Return Me._text
            End Get
            Set
                Me._text = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TStateOfAffairs))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TStateOfAffairs object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TStateOfAffairs object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TStateOfAffairs object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStateOfAffairs, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TStateOfAffairs)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStateOfAffairs) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TStateOfAffairs
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TStateOfAffairs)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TStateOfAffairs
            Return CType(SerializerXml.Deserialize(s), TStateOfAffairs)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TStateOfAffairs object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TStateOfAffairs object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TStateOfAffairs object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TStateOfAffairs, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TStateOfAffairs)
            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 TStateOfAffairs) 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 TStateOfAffairs
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TRoute

#Region "Private fields"
        Private _country As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property country() As String
            Get
                Return Me._country
            End Get
            Set
                Me._country = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TRoute))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TRoute object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TRoute object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TRoute object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRoute, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TRoute)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRoute) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TRoute
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TRoute)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TRoute
            Return CType(SerializerXml.Deserialize(s), TRoute)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TRoute object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TRoute object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TRoute object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRoute, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TRoute)
            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 TRoute) 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 TRoute
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TAssurance

#Region "Private fields"
        Private _flag As String

        Private _amount As Decimal

        Private _curr As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property flag() As String
            Get
                Return Me._flag
            End Get
            Set
                Me._flag = Value
            End Set
        End Property

        Public Property amount() As Decimal
            Get
                Return Me._amount
            End Get
            Set
                Me._amount = Value
            End Set
        End Property

        Public Property curr() As String
            Get
                Return Me._curr
            End Get
            Set
                Me._curr = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TAssurance))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TAssurance object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TAssurance object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TAssurance object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAssurance, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAssurance)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TAssurance) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TAssurance
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TAssurance)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TAssurance
            Return CType(SerializerXml.Deserialize(s), TAssurance)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TAssurance object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TAssurance object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TAssurance object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TAssurance, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TAssurance)
            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 TAssurance) 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 TAssurance
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TFreight

#Region "Private fields"
        Private _flag As String

        Private _amount As Decimal

        Private _curr As String

        Private _noneu As Decimal

        Private _eunat As Decimal

        Private _nat As Decimal

        Private _frtInternationalAbs As Decimal

        Private _frtIntCurrency As String

        Private _frtCommunityAbs As Decimal

        Private _frtCommunityCurrency As String

        Private _frtNatAbs As Decimal

        Private _frtNatCurrency As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property flag() As String
            Get
                Return Me._flag
            End Get
            Set
                Me._flag = Value
            End Set
        End Property

        Public Property amount() As Decimal
            Get
                Return Me._amount
            End Get
            Set
                Me._amount = Value
            End Set
        End Property

        Public Property curr() As String
            Get
                Return Me._curr
            End Get
            Set
                Me._curr = Value
            End Set
        End Property

        Public Property noneu() As Decimal
            Get
                Return Me._noneu
            End Get
            Set
                Me._noneu = Value
            End Set
        End Property

        Public Property eunat() As Decimal
            Get
                Return Me._eunat
            End Get
            Set
                Me._eunat = Value
            End Set
        End Property

        Public Property nat() As Decimal
            Get
                Return Me._nat
            End Get
            Set
                Me._nat = Value
            End Set
        End Property

        Public Property frtInternationalAbs() As Decimal
            Get
                Return Me._frtInternationalAbs
            End Get
            Set
                Me._frtInternationalAbs = Value
            End Set
        End Property

        Public Property frtIntCurrency() As String
            Get
                Return Me._frtIntCurrency
            End Get
            Set
                Me._frtIntCurrency = Value
            End Set
        End Property

        Public Property frtCommunityAbs() As Decimal
            Get
                Return Me._frtCommunityAbs
            End Get
            Set
                Me._frtCommunityAbs = Value
            End Set
        End Property

        Public Property frtCommunityCurrency() As String
            Get
                Return Me._frtCommunityCurrency
            End Get
            Set
                Me._frtCommunityCurrency = Value
            End Set
        End Property

        Public Property frtNatAbs() As Decimal
            Get
                Return Me._frtNatAbs
            End Get
            Set
                Me._frtNatAbs = Value
            End Set
        End Property

        Public Property frtNatCurrency() As String
            Get
                Return Me._frtNatCurrency
            End Get
            Set
                Me._frtNatCurrency = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TFreight))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TFreight object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TFreight object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TFreight object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TFreight, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TFreight)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TFreight) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TFreight
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TFreight)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TFreight
            Return CType(SerializerXml.Deserialize(s), TFreight)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TFreight object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TFreight object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TFreight object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TFreight, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TFreight)
            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 TFreight) 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 TFreight
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TDeclType

#Region "Private fields"
        Private _type1 As String

        Private _type2 As String

        Private _type3 As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type1() As String
            Get
                Return Me._type1
            End Get
            Set
                Me._type1 = Value
            End Set
        End Property

        Public Property type2() As String
            Get
                Return Me._type2
            End Get
            Set
                Me._type2 = Value
            End Set
        End Property

        Public Property type3() As String
            Get
                Return Me._type3
            End Get
            Set
                Me._type3 = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TDeclType))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TDeclType object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TDeclType object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TDeclType object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDeclType, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TDeclType)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TDeclType) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TDeclType
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TDeclType)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TDeclType
            Return CType(SerializerXml.Deserialize(s), TDeclType)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TDeclType object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TDeclType object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TDeclType object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TSeal

#Region "Private fields"
        Private _type As String

        Private _quantity As UInteger

        Private _sign As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property quantity() As UInteger
            Get
                Return Me._quantity
            End Get
            Set
                Me._quantity = Value
            End Set
        End Property

        Public Property sign() As String
            Get
                Return Me._sign
            End Get
            Set
                Me._sign = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TSeal))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TSeal object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TSeal object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TSeal object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TSeal, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TSeal)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TSeal) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TSeal
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TSeal)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TSeal
            Return CType(SerializerXml.Deserialize(s), TSeal)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TSeal object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TSeal object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TSeal object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TSeal, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TSeal)
            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 TSeal) 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 TSeal
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMot

#Region "Private fields"
        Private _mot As String

        Private _typeIdentBorder As Integer

        Private _nat As String

        Private _type As String

        Private _licNo As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property mot() As String
            Get
                Return Me._mot
            End Get
            Set
                Me._mot = Value
            End Set
        End Property

        Public Property typeIdentBorder() As Integer
            Get
                Return Me._typeIdentBorder
            End Get
            Set
                Me._typeIdentBorder = Value
            End Set
        End Property

        Public Property nat() As String
            Get
                Return Me._nat
            End Get
            Set
                Me._nat = Value
            End Set
        End Property

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property licNo() As String
            Get
                Return Me._licNo
            End Get
            Set
                Me._licNo = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMot))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMot object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMot object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMot object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMot, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMot)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMot) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMot
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMot)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMot
            Return CType(SerializerXml.Deserialize(s), TMot)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMot object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMot object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMot object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TCustomsOffice

#Region "Private fields"
        Private _codeOff As String

        Private _offCtry As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property codeOff() As String
            Get
                Return Me._codeOff
            End Get
            Set
                Me._codeOff = Value
            End Set
        End Property

        Public Property offCtry() As String
            Get
                Return Me._offCtry
            End Get
            Set
                Me._offCtry = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TCustomsOffice))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TCustomsOffice object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TCustomsOffice object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TCustomsOffice object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomsOffice, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomsOffice)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TCustomsOffice) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TCustomsOffice
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TCustomsOffice)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TCustomsOffice
            Return CType(SerializerXml.Deserialize(s), TCustomsOffice)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TCustomsOffice object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TCustomsOffice object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TCustomsOffice object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TCustomsOffice, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TCustomsOffice)
            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 TCustomsOffice) 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 TCustomsOffice
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TGnss

#Region "Private fields"
        Private _latitude As String

        Private _longitude As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property latitude() As String
            Get
                Return Me._latitude
            End Get
            Set
                Me._latitude = Value
            End Set
        End Property

        Public Property longitude() As String
            Get
                Return Me._longitude
            End Get
            Set
                Me._longitude = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TGnss))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TGnss object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TGnss object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TGnss object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TGnss, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TGnss)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TGnss) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TGnss
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TGnss)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TGnss
            Return CType(SerializerXml.Deserialize(s), TGnss)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TGnss object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TGnss object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TGnss object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TGnss, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TGnss)
            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 TGnss) 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 TGnss
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TLocationOfGoods

#Region "Private fields"
        Private _qual As String

        Private _authNo As String

        Private _additionIdentifier As String

        Private _code As String

        Private _gnss As TGnss

        Private _street As String

        Private _zip As String

        Private _loc As String

        Private _ctry As String

        Private _name As String

        Private _email As String

        Private _phone As String

        Private _addit As String

        Private _type As String

        Private _customsOffice As TCustomsOffice

        Private _country As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._customsOffice = New TCustomsOffice()
            Me._gnss = New TGnss()
        End Sub

        Public Property qual() As String
            Get
                Return Me._qual
            End Get
            Set
                Me._qual = Value
            End Set
        End Property

        Public Property authNo() As String
            Get
                Return Me._authNo
            End Get
            Set
                Me._authNo = Value
            End Set
        End Property

        Public Property additionIdentifier() As String
            Get
                Return Me._additionIdentifier
            End Get
            Set
                Me._additionIdentifier = Value
            End Set
        End Property

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        Public Property gnss() As TGnss
            Get
                Return Me._gnss
            End Get
            Set
                Me._gnss = Value
            End Set
        End Property

        Public Property street() As String
            Get
                Return Me._street
            End Get
            Set
                Me._street = Value
            End Set
        End Property

        Public Property zip() As String
            Get
                Return Me._zip
            End Get
            Set
                Me._zip = Value
            End Set
        End Property

        Public Property loc() As String
            Get
                Return Me._loc
            End Get
            Set
                Me._loc = Value
            End Set
        End Property

        Public Property ctry() As String
            Get
                Return Me._ctry
            End Get
            Set
                Me._ctry = Value
            End Set
        End Property

        Public Property name() As String
            Get
                Return Me._name
            End Get
            Set
                Me._name = Value
            End Set
        End Property

        Public Property email() As String
            Get
                Return Me._email
            End Get
            Set
                Me._email = Value
            End Set
        End Property

        Public Property phone() As String
            Get
                Return Me._phone
            End Get
            Set
                Me._phone = Value
            End Set
        End Property

        Public Property addit() As String
            Get
                Return Me._addit
            End Get
            Set
                Me._addit = Value
            End Set
        End Property

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property customsOffice() As TCustomsOffice
            Get
                Return Me._customsOffice
            End Get
            Set
                Me._customsOffice = Value
            End Set
        End Property

        Public Property country() As String
            Get
                Return Me._country
            End Get
            Set
                Me._country = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TLocationOfGoods))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TLocationOfGoods object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TLocationOfGoods object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TLocationOfGoods object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TLocationOfGoods, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TLocationOfGoods)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TLocationOfGoods) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TLocationOfGoods
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TLocationOfGoods)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TLocationOfGoods
            Return CType(SerializerXml.Deserialize(s), TLocationOfGoods)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TLocationOfGoods object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TLocationOfGoods object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TLocationOfGoods object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TLocationOfGoods, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TLocationOfGoods)
            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 TLocationOfGoods) 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 TLocationOfGoods
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TMotInl

#Region "Private fields"
        Private _mot As String

        Private _nat As String

        Private _type As String

        Private _licNo As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property mot() As String
            Get
                Return Me._mot
            End Get
            Set
                Me._mot = Value
            End Set
        End Property

        Public Property nat() As String
            Get
                Return Me._nat
            End Get
            Set
                Me._nat = Value
            End Set
        End Property

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property licNo() As String
            Get
                Return Me._licNo
            End Get
            Set
                Me._licNo = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMotInl))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMotInl object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMotInl object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMotInl object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMotInl, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMotInl)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMotInl) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMotInl
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMotInl)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMotInl
            Return CType(SerializerXml.Deserialize(s), TMotInl)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMotInl object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMotInl object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMotInl object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TMotInl, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMotInl)
            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 TMotInl) 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 TMotInl
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHead

#Region "Private fields"
        Private _company As String

        Private _plant As String

        Private _shipmentId As String

        Private _shipmentVersion As String

        Private _shipmentIdPart As String

        Private _shipmentType As String

        Private _mrn As String

        Private _deliveryDate As Date

        Private _cod As String

        Private _exportCountry As String

        Private _contCode As ContainerCode

        Private _gWeight As Decimal

        Private _dateStartPack As Date

        Private _dateEndPack As Date

        Private _partyConst As String

        Private _security As String

        Private _consigneeEndUserFlag As String

        Private _endUserInEam As TShipmentHeadEndUserInEam

        Private _estimatedArrivalDate As Date

        Private _nctsIndicator As Boolean

        Private _motInl As TMotInl

        Private _text As List(Of String)

        Private _partners As List(Of TPartner)

        Private _locGoods As TLocationOfGoods

        Private _officeDepart As TCustomsOffice

        Private _officeBorder As TCustomsOffice

        Private _officeSupervising As TCustomsOffice

        Private _motBorder As TMot

        Private _seals As List(Of TSeal)

        Private _declType As TDeclType

        Private _placeDest As String

        Private _authLocation As String

        Private _declPlace As String

        Private _agreedLocationOfGoodsCd As String

        Private _agreedLocationOfGoods As String

        Private _custSubPlace As String

        Private _codFirst As String

        Private _broker As String

        Private _waybillNumber As String

        Private _waybillDate As Date

        Private _houseWaybillNumber As String

        Private _houseWaybillDate As Date

        Private _officeDest As TCustomsOffice

        Private _carrier As String

        Private _containers As List(Of TContainer)

        Private _freightCost As TFreight

        Private _addCosts As List(Of TAddCosts)

        Private _assurCost As TAssurance

        Private _groupID As String

        Private _documents As List(Of TDocuments)

        Private _regNoExt As String

        Private _customerFields As TCustomerFields

        Private _attributes As List(Of TAttribute)

        Private _coe As String

        Private _specCircum As String

        Private _carriageCosts As String

        Private _shipmentIdentification As String

        Private _conveyRefNr As String

        Private _unloadingPlace As String

        Private _route As List(Of TRoute)

        Private _express As String

        Private _routeName As String

        Private _authorisationNo As String

        Private _authorisation As TShipmentHeadAuthorisation

        Private _postExportDeclaration As TShipmentHeadPostExportDeclaration

        Private _oprData As TShipmentHeadOprData

        Private _additionalInformation As List(Of TAttribute)

        Private _stateOfAffairs As List(Of TStateOfAffairs)

        Private _erpData As TErpShipmentData

        Private _authorisations As List(Of TAuthorisation)

        Private _prevDoc As List(Of TShipmentPreviousDocument)

        Private _departureTransportMeans As List(Of TShipmentHeadDepartureTransportMeans)

        Private _officePresentation As TCustomsOffice

        Private _deliveryType As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._officePresentation = New TCustomsOffice()
            Me._departureTransportMeans = New List(Of TShipmentHeadDepartureTransportMeans)()
            Me._prevDoc = New List(Of TShipmentPreviousDocument)()
            Me._authorisations = New List(Of TAuthorisation)()
            Me._erpData = New TErpShipmentData()
            Me._stateOfAffairs = New List(Of TStateOfAffairs)()
            Me._additionalInformation = New List(Of TAttribute)()
            Me._oprData = New TShipmentHeadOprData()
            Me._postExportDeclaration = New TShipmentHeadPostExportDeclaration()
            Me._authorisation = New TShipmentHeadAuthorisation()
            Me._route = New List(Of TRoute)()
            Me._attributes = New List(Of TAttribute)()
            Me._customerFields = New TCustomerFields()
            Me._documents = New List(Of TDocuments)()
            Me._assurCost = New TAssurance()
            Me._addCosts = New List(Of TAddCosts)()
            Me._freightCost = New TFreight()
            Me._containers = New List(Of TContainer)()
            Me._officeDest = New TCustomsOffice()
            Me._declType = New TDeclType()
            Me._seals = New List(Of TSeal)()
            Me._motBorder = New TMot()
            Me._officeSupervising = New TCustomsOffice()
            Me._officeBorder = New TCustomsOffice()
            Me._officeDepart = New TCustomsOffice()
            Me._locGoods = New TLocationOfGoods()
            Me._partners = New List(Of TPartner)()
            Me._text = New List(Of String)()
            Me._motInl = New TMotInl()
            Me._shipmentVersion = "1"
        End Sub

        Public Property company() As String
            Get
                Return Me._company
            End Get
            Set
                Me._company = Value
            End Set
        End Property

        Public Property plant() As String
            Get
                Return Me._plant
            End Get
            Set
                Me._plant = Value
            End Set
        End Property

        Public Property shipmentId() As String
            Get
                Return Me._shipmentId
            End Get
            Set
                Me._shipmentId = Value
            End Set
        End Property

        <System.ComponentModel.DefaultValue("1")>
        Public Property shipmentVersion() As String
            Get
                Return Me._shipmentVersion
            End Get
            Set
                Me._shipmentVersion = Value
            End Set
        End Property

        Public Property shipmentIdPart() As String
            Get
                Return Me._shipmentIdPart
            End Get
            Set
                Me._shipmentIdPart = Value
            End Set
        End Property

        Public Property shipmentType() As String
            Get
                Return Me._shipmentType
            End Get
            Set
                Me._shipmentType = Value
            End Set
        End Property

        Public Property mrn() As String
            Get
                Return Me._mrn
            End Get
            Set
                Me._mrn = Value
            End Set
        End Property

        Public Property deliveryDate() As Date
            Get
                Return Me._deliveryDate
            End Get
            Set
                Me._deliveryDate = Value
            End Set
        End Property

        Public Property cod() As String
            Get
                Return Me._cod
            End Get
            Set
                Me._cod = Value
            End Set
        End Property

        Public Property exportCountry() As String
            Get
                Return Me._exportCountry
            End Get
            Set
                Me._exportCountry = Value
            End Set
        End Property

        Public Property contCode() As ContainerCode
            Get
                Return Me._contCode
            End Get
            Set
                Me._contCode = Value
            End Set
        End Property

        Public Property gWeight() As Decimal
            Get
                Return Me._gWeight
            End Get
            Set
                Me._gWeight = Value
            End Set
        End Property

        Public Property dateStartPack() As Date
            Get
                Return Me._dateStartPack
            End Get
            Set
                Me._dateStartPack = Value
            End Set
        End Property

        Public Property dateEndPack() As Date
            Get
                Return Me._dateEndPack
            End Get
            Set
                Me._dateEndPack = Value
            End Set
        End Property

        Public Property partyConst() As String
            Get
                Return Me._partyConst
            End Get
            Set
                Me._partyConst = Value
            End Set
        End Property

        Public Property security() As String
            Get
                Return Me._security
            End Get
            Set
                Me._security = Value
            End Set
        End Property

        Public Property consigneeEndUserFlag() As String
            Get
                Return Me._consigneeEndUserFlag
            End Get
            Set
                Me._consigneeEndUserFlag = Value
            End Set
        End Property

        Public Property endUserInEam() As TShipmentHeadEndUserInEam
            Get
                Return Me._endUserInEam
            End Get
            Set
                Me._endUserInEam = Value
            End Set
        End Property

        Public Property estimatedArrivalDate() As Date
            Get
                Return Me._estimatedArrivalDate
            End Get
            Set
                Me._estimatedArrivalDate = Value
            End Set
        End Property

        Public Property nctsIndicator() As Boolean
            Get
                Return Me._nctsIndicator
            End Get
            Set
                Me._nctsIndicator = Value
            End Set
        End Property

        Public Property motInl() As TMotInl
            Get
                Return Me._motInl
            End Get
            Set
                Me._motInl = Value
            End Set
        End Property

        <XmlElement("text")>
        Public Property text() As List(Of String)
            Get
                Return Me._text
            End Get
            Set
                Me._text = Value
            End Set
        End Property

        <XmlElement("partners")>
        Public Property partners() As List(Of TPartner)
            Get
                Return Me._partners
            End Get
            Set
                Me._partners = Value
            End Set
        End Property

        Public Property locGoods() As TLocationOfGoods
            Get
                Return Me._locGoods
            End Get
            Set
                Me._locGoods = Value
            End Set
        End Property

        Public Property officeDepart() As TCustomsOffice
            Get
                Return Me._officeDepart
            End Get
            Set
                Me._officeDepart = Value
            End Set
        End Property

        Public Property officeBorder() As TCustomsOffice
            Get
                Return Me._officeBorder
            End Get
            Set
                Me._officeBorder = Value
            End Set
        End Property

        Public Property officeSupervising() As TCustomsOffice
            Get
                Return Me._officeSupervising
            End Get
            Set
                Me._officeSupervising = Value
            End Set
        End Property

        Public Property motBorder() As TMot
            Get
                Return Me._motBorder
            End Get
            Set
                Me._motBorder = Value
            End Set
        End Property

        <XmlElement("seals")>
        Public Property seals() As List(Of TSeal)
            Get
                Return Me._seals
            End Get
            Set
                Me._seals = Value
            End Set
        End Property

        Public Property declType() As TDeclType
            Get
                Return Me._declType
            End Get
            Set
                Me._declType = Value
            End Set
        End Property

        Public Property placeDest() As String
            Get
                Return Me._placeDest
            End Get
            Set
                Me._placeDest = Value
            End Set
        End Property

        Public Property authLocation() As String
            Get
                Return Me._authLocation
            End Get
            Set
                Me._authLocation = Value
            End Set
        End Property

        Public Property declPlace() As String
            Get
                Return Me._declPlace
            End Get
            Set
                Me._declPlace = Value
            End Set
        End Property

        Public Property agreedLocationOfGoodsCd() As String
            Get
                Return Me._agreedLocationOfGoodsCd
            End Get
            Set
                Me._agreedLocationOfGoodsCd = Value
            End Set
        End Property

        Public Property agreedLocationOfGoods() As String
            Get
                Return Me._agreedLocationOfGoods
            End Get
            Set
                Me._agreedLocationOfGoods = Value
            End Set
        End Property

        Public Property custSubPlace() As String
            Get
                Return Me._custSubPlace
            End Get
            Set
                Me._custSubPlace = Value
            End Set
        End Property

        Public Property codFirst() As String
            Get
                Return Me._codFirst
            End Get
            Set
                Me._codFirst = Value
            End Set
        End Property

        Public Property broker() As String
            Get
                Return Me._broker
            End Get
            Set
                Me._broker = Value
            End Set
        End Property

        Public Property waybillNumber() As String
            Get
                Return Me._waybillNumber
            End Get
            Set
                Me._waybillNumber = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property waybillDate() As Date
            Get
                Return Me._waybillDate
            End Get
            Set
                Me._waybillDate = Value
            End Set
        End Property

        Public Property houseWaybillNumber() As String
            Get
                Return Me._houseWaybillNumber
            End Get
            Set
                Me._houseWaybillNumber = Value
            End Set
        End Property

        <XmlElement(DataType:="date")>
        Public Property houseWaybillDate() As Date
            Get
                Return Me._houseWaybillDate
            End Get
            Set
                Me._houseWaybillDate = Value
            End Set
        End Property

        Public Property officeDest() As TCustomsOffice
            Get
                Return Me._officeDest
            End Get
            Set
                Me._officeDest = Value
            End Set
        End Property

        Public Property carrier() As String
            Get
                Return Me._carrier
            End Get
            Set
                Me._carrier = Value
            End Set
        End Property

        <XmlElement("containers")>
        Public Property containers() As List(Of TContainer)
            Get
                Return Me._containers
            End Get
            Set
                Me._containers = Value
            End Set
        End Property

        Public Property freightCost() As TFreight
            Get
                Return Me._freightCost
            End Get
            Set
                Me._freightCost = Value
            End Set
        End Property

        <XmlElement("addCosts")>
        Public Property addCosts() As List(Of TAddCosts)
            Get
                Return Me._addCosts
            End Get
            Set
                Me._addCosts = Value
            End Set
        End Property

        Public Property assurCost() As TAssurance
            Get
                Return Me._assurCost
            End Get
            Set
                Me._assurCost = Value
            End Set
        End Property

        Public Property groupID() As String
            Get
                Return Me._groupID
            End Get
            Set
                Me._groupID = Value
            End Set
        End Property

        <XmlElement("documents")>
        Public Property documents() As List(Of TDocuments)
            Get
                Return Me._documents
            End Get
            Set
                Me._documents = Value
            End Set
        End Property

        Public Property regNoExt() As String
            Get
                Return Me._regNoExt
            End Get
            Set
                Me._regNoExt = Value
            End Set
        End Property

        Public Property customerFields() As TCustomerFields
            Get
                Return Me._customerFields
            End Get
            Set
                Me._customerFields = Value
            End Set
        End Property

        <XmlElement("attributes")>
        Public Property attributes() As List(Of TAttribute)
            Get
                Return Me._attributes
            End Get
            Set
                Me._attributes = Value
            End Set
        End Property

        Public Property coe() As String
            Get
                Return Me._coe
            End Get
            Set
                Me._coe = Value
            End Set
        End Property

        Public Property specCircum() As String
            Get
                Return Me._specCircum
            End Get
            Set
                Me._specCircum = Value
            End Set
        End Property

        Public Property carriageCosts() As String
            Get
                Return Me._carriageCosts
            End Get
            Set
                Me._carriageCosts = Value
            End Set
        End Property

        Public Property shipmentIdentification() As String
            Get
                Return Me._shipmentIdentification
            End Get
            Set
                Me._shipmentIdentification = Value
            End Set
        End Property

        Public Property conveyRefNr() As String
            Get
                Return Me._conveyRefNr
            End Get
            Set
                Me._conveyRefNr = Value
            End Set
        End Property

        Public Property unloadingPlace() As String
            Get
                Return Me._unloadingPlace
            End Get
            Set
                Me._unloadingPlace = Value
            End Set
        End Property

        <XmlElement("route")>
        Public Property route() As List(Of TRoute)
            Get
                Return Me._route
            End Get
            Set
                Me._route = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property express() As String
            Get
                Return Me._express
            End Get
            Set
                Me._express = Value
            End Set
        End Property

        Public Property routeName() As String
            Get
                Return Me._routeName
            End Get
            Set
                Me._routeName = Value
            End Set
        End Property

        Public Property authorisationNo() As String
            Get
                Return Me._authorisationNo
            End Get
            Set
                Me._authorisationNo = Value
            End Set
        End Property

        Public Property authorisation() As TShipmentHeadAuthorisation
            Get
                Return Me._authorisation
            End Get
            Set
                Me._authorisation = Value
            End Set
        End Property

        Public Property postExportDeclaration() As TShipmentHeadPostExportDeclaration
            Get
                Return Me._postExportDeclaration
            End Get
            Set
                Me._postExportDeclaration = Value
            End Set
        End Property

        Public Property oprData() As TShipmentHeadOprData
            Get
                Return Me._oprData
            End Get
            Set
                Me._oprData = Value
            End Set
        End Property

        <XmlElement("additionalInformation")>
        Public Property additionalInformation() As List(Of TAttribute)
            Get
                Return Me._additionalInformation
            End Get
            Set
                Me._additionalInformation = Value
            End Set
        End Property

        <XmlElement("stateOfAffairs")>
        Public Property stateOfAffairs() As List(Of TStateOfAffairs)
            Get
                Return Me._stateOfAffairs
            End Get
            Set
                Me._stateOfAffairs = Value
            End Set
        End Property

        Public Property erpData() As TErpShipmentData
            Get
                Return Me._erpData
            End Get
            Set
                Me._erpData = Value
            End Set
        End Property

        <XmlElement("authorisations")>
        Public Property authorisations() As List(Of TAuthorisation)
            Get
                Return Me._authorisations
            End Get
            Set
                Me._authorisations = Value
            End Set
        End Property

        <XmlElement("prevDoc")>
        Public Property prevDoc() As List(Of TShipmentPreviousDocument)
            Get
                Return Me._prevDoc
            End Get
            Set
                Me._prevDoc = Value
            End Set
        End Property

        <XmlElement("departureTransportMeans")>
        Public Property departureTransportMeans() As List(Of TShipmentHeadDepartureTransportMeans)
            Get
                Return Me._departureTransportMeans
            End Get
            Set
                Me._departureTransportMeans = Value
            End Set
        End Property

        Public Property officePresentation() As TCustomsOffice
            Get
                Return Me._officePresentation
            End Get
            Set
                Me._officePresentation = Value
            End Set
        End Property

        Public Property deliveryType() As String
            Get
                Return Me._deliveryType
            End Get
            Set
                Me._deliveryType = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHead))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHead object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHead object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHead, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHead)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHead) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHead
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHead)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHead
            Return CType(SerializerXml.Deserialize(s), TShipmentHead)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHead object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHead object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHead object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Public Enum ContainerCode

        <XmlEnum("1")>
        Item1

        <XmlEnum("0")>
        Item0
    End Enum

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Public Enum TShipmentHeadEndUserInEam

        <XmlEnum("")>
        Item

        <XmlEnum("0")>
        Item0

        <XmlEnum("1")>
        Item1
    End Enum

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadAuthorisation

#Region "Private fields"
        Private _oprEntryInTheRecords As String

        Private _opr As String

        Private _trustworthyExporter As String

        Private _authorisedExporter As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property oprEntryInTheRecords() As String
            Get
                Return Me._oprEntryInTheRecords
            End Get
            Set
                Me._oprEntryInTheRecords = Value
            End Set
        End Property

        Public Property opr() As String
            Get
                Return Me._opr
            End Get
            Set
                Me._opr = Value
            End Set
        End Property

        Public Property trustworthyExporter() As String
            Get
                Return Me._trustworthyExporter
            End Get
            Set
                Me._trustworthyExporter = Value
            End Set
        End Property

        Public Property authorisedExporter() As String
            Get
                Return Me._authorisedExporter
            End Get
            Set
                Me._authorisedExporter = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadAuthorisation))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadAuthorisation object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadAuthorisation object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadAuthorisation object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadAuthorisation, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadAuthorisation)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadAuthorisation) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadAuthorisation
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadAuthorisation)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadAuthorisation
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadAuthorisation)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadAuthorisation object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadAuthorisation object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadAuthorisation object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadAuthorisation, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadAuthorisation)
            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 TShipmentHeadAuthorisation) 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 TShipmentHeadAuthorisation
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadPostExportDeclaration

#Region "Private fields"
        Private _dateOfExit As Date

        Private _dateOfExport As Date

        Private _statisticDecl As String

        Private _officeExit As TCustomsOffice

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._officeExit = New TCustomsOffice()
        End Sub

        Public Property dateOfExit() As Date
            Get
                Return Me._dateOfExit
            End Get
            Set
                Me._dateOfExit = Value
            End Set
        End Property

        Public Property dateOfExport() As Date
            Get
                Return Me._dateOfExport
            End Get
            Set
                Me._dateOfExport = Value
            End Set
        End Property

        Public Property statisticDecl() As String
            Get
                Return Me._statisticDecl
            End Get
            Set
                Me._statisticDecl = Value
            End Set
        End Property

        Public Property officeExit() As TCustomsOffice
            Get
                Return Me._officeExit
            End Get
            Set
                Me._officeExit = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadPostExportDeclaration))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadPostExportDeclaration object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadPostExportDeclaration object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadPostExportDeclaration object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadPostExportDeclaration, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadPostExportDeclaration)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadPostExportDeclaration) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadPostExportDeclaration
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadPostExportDeclaration)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadPostExportDeclaration
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadPostExportDeclaration)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadPostExportDeclaration object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadPostExportDeclaration object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadPostExportDeclaration object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadPostExportDeclaration, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadPostExportDeclaration)
            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 TShipmentHeadPostExportDeclaration) 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 TShipmentHeadPostExportDeclaration
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadOprData

#Region "Private fields"
        Private _reimportDeadline As Date

        Private _standardExchange As String

        Private _reImport As List(Of TShipmentHeadOprDataReImport)

        Private _meansOfIdentification As List(Of TShipmentHeadOprDataMeansOfIdentification)

        Private _product As List(Of TShipmentHeadOprDataProduct)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._product = New List(Of TShipmentHeadOprDataProduct)()
            Me._meansOfIdentification = New List(Of TShipmentHeadOprDataMeansOfIdentification)()
            Me._reImport = New List(Of TShipmentHeadOprDataReImport)()
        End Sub

        Public Property reimportDeadline() As Date
            Get
                Return Me._reimportDeadline
            End Get
            Set
                Me._reimportDeadline = Value
            End Set
        End Property

        Public Property standardExchange() As String
            Get
                Return Me._standardExchange
            End Get
            Set
                Me._standardExchange = Value
            End Set
        End Property

        <XmlElement("reImport")>
        Public Property reImport() As List(Of TShipmentHeadOprDataReImport)
            Get
                Return Me._reImport
            End Get
            Set
                Me._reImport = Value
            End Set
        End Property

        <XmlElement("meansOfIdentification")>
        Public Property meansOfIdentification() As List(Of TShipmentHeadOprDataMeansOfIdentification)
            Get
                Return Me._meansOfIdentification
            End Get
            Set
                Me._meansOfIdentification = Value
            End Set
        End Property

        <XmlElement("product")>
        Public Property product() As List(Of TShipmentHeadOprDataProduct)
            Get
                Return Me._product
            End Get
            Set
                Me._product = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprData))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadOprData object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadOprData object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprData)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprData) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadOprData
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprData)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadOprData
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadOprData)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadOprData object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadOprData object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprData object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadOprData, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprData)
            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 TShipmentHeadOprData) 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 TShipmentHeadOprData
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadOprDataReImport

#Region "Private fields"
        Private _ctry As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property ctry() As String
            Get
                Return Me._ctry
            End Get
            Set
                Me._ctry = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataReImport))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadOprDataReImport object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadOprDataReImport object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataReImport object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataReImport, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataReImport)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataReImport) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadOprDataReImport
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataReImport)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadOprDataReImport
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadOprDataReImport)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadOprDataReImport object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadOprDataReImport object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataReImport object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadOprDataReImport, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataReImport)
            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 TShipmentHeadOprDataReImport) 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 TShipmentHeadOprDataReImport
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadOprDataMeansOfIdentification

#Region "Private fields"
        Private _type As String

        Private _description As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property description() As String
            Get
                Return Me._description
            End Get
            Set
                Me._description = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataMeansOfIdentification))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadOprDataMeansOfIdentification object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadOprDataMeansOfIdentification object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataMeansOfIdentification object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataMeansOfIdentification, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataMeansOfIdentification)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataMeansOfIdentification) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadOprDataMeansOfIdentification
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataMeansOfIdentification)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadOprDataMeansOfIdentification
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadOprDataMeansOfIdentification)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadOprDataMeansOfIdentification object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadOprDataMeansOfIdentification object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataMeansOfIdentification object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadOprDataMeansOfIdentification, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataMeansOfIdentification)
            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 TShipmentHeadOprDataMeansOfIdentification) 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 TShipmentHeadOprDataMeansOfIdentification
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadOprDataProduct

#Region "Private fields"
        Private _commodityCode As String

        Private _partDescription As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property commodityCode() As String
            Get
                Return Me._commodityCode
            End Get
            Set
                Me._commodityCode = Value
            End Set
        End Property

        Public Property partDescription() As String
            Get
                Return Me._partDescription
            End Get
            Set
                Me._partDescription = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataProduct))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadOprDataProduct object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadOprDataProduct object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataProduct object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataProduct, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataProduct)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadOprDataProduct) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadOprDataProduct
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataProduct)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadOprDataProduct
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadOprDataProduct)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadOprDataProduct object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadOprDataProduct object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadOprDataProduct object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadOprDataProduct, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadOprDataProduct)
            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 TShipmentHeadOprDataProduct) 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 TShipmentHeadOprDataProduct
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class TShipmentHeadDepartureTransportMeans

#Region "Private fields"
        Private _type As String

        Private _identificationNumber As String

        Private _nationality As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        <XmlElement(DataType:="integer")>
        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        Public Property identificationNumber() As String
            Get
                Return Me._identificationNumber
            End Get
            Set
                Me._identificationNumber = Value
            End Set
        End Property

        Public Property nationality() As String
            Get
                Return Me._nationality
            End Get
            Set
                Me._nationality = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadDepartureTransportMeans))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TShipmentHeadDepartureTransportMeans object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TShipmentHeadDepartureTransportMeans object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TShipmentHeadDepartureTransportMeans object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadDepartureTransportMeans, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadDepartureTransportMeans)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TShipmentHeadDepartureTransportMeans) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TShipmentHeadDepartureTransportMeans
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadDepartureTransportMeans)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TShipmentHeadDepartureTransportMeans
            Return CType(SerializerXml.Deserialize(s), TShipmentHeadDepartureTransportMeans)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TShipmentHeadDepartureTransportMeans object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TShipmentHeadDepartureTransportMeans object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TShipmentHeadDepartureTransportMeans object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TShipmentHeadDepartureTransportMeans, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TShipmentHeadDepartureTransportMeans)
            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 TShipmentHeadDepartureTransportMeans) 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 TShipmentHeadDepartureTransportMeans
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TActionCode

#Region "Private fields"
        Private _code As String

        Private _parameter As List(Of TActionCodeParameter)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._parameter = New List(Of TActionCodeParameter)()
        End Sub

        Public Property code() As String
            Get
                Return Me._code
            End Get
            Set
                Me._code = Value
            End Set
        End Property

        <XmlElement("parameter")>
        Public Property parameter() As List(Of TActionCodeParameter)
            Get
                Return Me._parameter
            End Get
            Set
                Me._parameter = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TActionCode))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TActionCode object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TActionCode object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TActionCode object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TActionCode, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TActionCode)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TActionCode) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TActionCode
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TActionCode)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TActionCode
            Return CType(SerializerXml.Deserialize(s), TActionCode)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TActionCode object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TActionCode object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TActionCode object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TActionCodeParameter

#Region "Private fields"
        Private _key As String

        Private _value As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        <XmlAttribute>
        Public Property key() As String
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        <XmlAttribute>
        Public Property value() As String
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TActionCodeParameter))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TActionCodeParameter object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TActionCodeParameter object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TActionCodeParameter object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TActionCodeParameter, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TActionCodeParameter)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TActionCodeParameter) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TActionCodeParameter
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TActionCodeParameter)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TActionCodeParameter
            Return CType(SerializerXml.Deserialize(s), TActionCodeParameter)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TActionCodeParameter object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TActionCodeParameter object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TActionCodeParameter object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TMessageDetail

#Region "Private fields"
        Private _messageId As String

        Private _partyId As String

        Private _transactionId As String

        Private _sequenceNum As String

        Private _actionCode As TActionCode

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._actionCode = New TActionCode()
        End Sub

        Public Property messageId() As String
            Get
                Return Me._messageId
            End Get
            Set
                Me._messageId = Value
            End Set
        End Property

        Public Property partyId() As String
            Get
                Return Me._partyId
            End Get
            Set
                Me._partyId = Value
            End Set
        End Property

        Public Property transactionId() As String
            Get
                Return Me._transactionId
            End Get
            Set
                Me._transactionId = Value
            End Set
        End Property

        <XmlElement(DataType:="integer")>
        Public Property sequenceNum() As String
            Get
                Return Me._sequenceNum
            End Get
            Set
                Me._sequenceNum = Value
            End Set
        End Property

        Public Property ActionCode() As TActionCode
            Get
                Return Me._actionCode
            End Get
            Set
                Me._actionCode = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMessageDetail))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMessageDetail object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMessageDetail object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMessageDetail object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMessageDetail, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMessageDetail)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMessageDetail) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMessageDetail
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMessageDetail)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMessageDetail
            Return CType(SerializerXml.Deserialize(s), TMessageDetail)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMessageDetail object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMessageDetail object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMessageDetail object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2")>
    Partial Public Class ExportShipment

#Region "Private fields"
        Private _shipmentHead As TShipmentHead

        Private _invoices As List(Of TInvoice)

        Private _packages As List(Of TPackage)

        Private _schemaVersion As Decimal

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._packages = New List(Of TPackage)()
            Me._invoices = New List(Of TInvoice)()
            Me._shipmentHead = New TShipmentHead()
        End Sub

        Public Property ShipmentHead() As TShipmentHead
            Get
                Return Me._shipmentHead
            End Get
            Set
                Me._shipmentHead = Value
            End Set
        End Property

        <XmlElement("Invoices")>
        Public Property Invoices() As List(Of TInvoice)
            Get
                Return Me._invoices
            End Get
            Set
                Me._invoices = Value
            End Set
        End Property

        <XmlElement("Packages")>
        Public Property Packages() As List(Of TPackage)
            Get
                Return Me._packages
            End Get
            Set
                Me._packages = Value
            End Set
        End Property

        <XmlAttribute>
        Public Property schemaVersion() As Decimal
            Get
                Return Me._schemaVersion
            End Get
            Set
                Me._schemaVersion = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ExportShipment))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize ExportShipment object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes ExportShipment object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output ExportShipment object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ExportShipment, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, ExportShipment)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ExportShipment) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As ExportShipment
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ExportShipment)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As ExportShipment
            Return CType(SerializerXml.Deserialize(s), ExportShipment)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current ExportShipment object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an ExportShipment object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output ExportShipment object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ExportShipment, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, ExportShipment)
            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 ExportShipment) 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 ExportShipment
            Dim file As FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2"),
     XmlRoot("ExportShipmentResponse", [Namespace]:="urn:http://www.mic-cust.com/MicExportShipment/7.1", IsNullable:=False)>
    Partial Public Class TStatusResponse

#Region "Private fields"
        Private _status As TStatus

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._status = New TStatus()
        End Sub

        Public Property Status() As TStatus
            Get
                Return Me._status
            End Get
            Set
                Me._status = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TStatusResponse))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TStatusResponse object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TStatusResponse object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TStatusResponse object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStatusResponse, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TStatusResponse)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStatusResponse) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TStatusResponse
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TStatusResponse)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TStatusResponse
            Return CType(SerializerXml.Deserialize(s), TStatusResponse)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TStatusResponse object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TStatusResponse object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TStatusResponse object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TStatus

#Region "Private fields"
        Private _status As TStatusStatus

        Private _item As Object

        Private _itemElementName As ItemChoiceType

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property status() As TStatusStatus
            Get
                Return Me._status
            End Get
            Set
                Me._status = Value
            End Set
        End Property

        <XmlElement("ErrorMessages", GetType(ErrorMessages), [Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2"),
         XmlElement("WarningMessages", GetType(WarningMessages), [Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2"),
         XmlElement("Reference", GetType(TMetaReference)),
         XmlChoiceIdentifierAttribute("ItemElementName")>
        Public Property Item() As Object
            Get
                Return Me._item
            End Get
            Set
                Me._item = Value
            End Set
        End Property

        <XmlIgnore>
        Public Property ItemElementName() As ItemChoiceType
            Get
                Return Me._itemElementName
            End Get
            Set
                Me._itemElementName = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TStatus))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TStatus object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TStatus object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TStatus object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStatus, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TStatus)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TStatus) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TStatus
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TStatus)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TStatus
            Return CType(SerializerXml.Deserialize(s), TStatus)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TStatus object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TStatus object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TStatus object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Public Enum TStatusStatus

        OK

        [ERROR]

        WARNING
    End Enum

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class ErrorMessages

#Region "Private fields"
        Private _errorMessage As List(Of TErrorMessageType)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._errorMessage = New List(Of TErrorMessageType)()
        End Sub

        <XmlElement("ErrorMessage")>
        Public Property ErrorMessage() As List(Of TErrorMessageType)
            Get
                Return Me._errorMessage
            End Get
            Set
                Me._errorMessage = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErrorMessages))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize ErrorMessages object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes ErrorMessages object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output ErrorMessages object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorMessages, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, ErrorMessages)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorMessages) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As ErrorMessages
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorMessages)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorMessages
            Return CType(SerializerXml.Deserialize(s), ErrorMessages)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current ErrorMessages object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an ErrorMessages object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output ErrorMessages object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class TErrorMessageType

#Region "Private fields"
        Private _module As String

        Private _process As String

        Private _errorCode As String

        Private _errorDesc As String

        Private _reference As TReference

        Private _details As TErrorDetail

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._details = New TErrorDetail()
            Me._reference = New TReference()
        End Sub

        Public Property [module]() As String
            Get
                Return Me._module
            End Get
            Set
                Me._module = Value
            End Set
        End Property

        Public Property process() As String
            Get
                Return Me._process
            End Get
            Set
                Me._process = Value
            End Set
        End Property

        Public Property errorCode() As String
            Get
                Return Me._errorCode
            End Get
            Set
                Me._errorCode = Value
            End Set
        End Property

        Public Property errorDesc() As String
            Get
                Return Me._errorDesc
            End Get
            Set
                Me._errorDesc = Value
            End Set
        End Property

        Public Property Reference() As TReference
            Get
                Return Me._reference
            End Get
            Set
                Me._reference = Value
            End Set
        End Property

        Public Property Details() As TErrorDetail
            Get
                Return Me._details
            End Get
            Set
                Me._details = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TErrorMessageType))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TErrorMessageType object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TErrorMessageType object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TErrorMessageType object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorMessageType, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErrorMessageType)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorMessageType) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TErrorMessageType
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TErrorMessageType)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TErrorMessageType
            Return CType(SerializerXml.Deserialize(s), TErrorMessageType)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TErrorMessageType object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TErrorMessageType object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TErrorMessageType object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class TReference

#Region "Private fields"
        Private _company As String

        Private _plant As String

        Private _correlationId As String

        Private _referenceType As String

        Private _referenceSid As Long

        Private _user As String

        Private _partnerId As String

        Private _routeId As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property company() As String
            Get
                Return Me._company
            End Get
            Set
                Me._company = Value
            End Set
        End Property

        Public Property plant() As String
            Get
                Return Me._plant
            End Get
            Set
                Me._plant = Value
            End Set
        End Property

        Public Property correlationId() As String
            Get
                Return Me._correlationId
            End Get
            Set
                Me._correlationId = Value
            End Set
        End Property

        Public Property referenceType() As String
            Get
                Return Me._referenceType
            End Get
            Set
                Me._referenceType = Value
            End Set
        End Property

        Public Property referenceSid() As Long
            Get
                Return Me._referenceSid
            End Get
            Set
                Me._referenceSid = Value
            End Set
        End Property

        Public Property user() As String
            Get
                Return Me._user
            End Get
            Set
                Me._user = Value
            End Set
        End Property

        Public Property partnerId() As String
            Get
                Return Me._partnerId
            End Get
            Set
                Me._partnerId = Value
            End Set
        End Property

        Public Property routeId() As String
            Get
                Return Me._routeId
            End Get
            Set
                Me._routeId = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TReference))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TReference object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TReference object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TReference)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TReference) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TReference
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TReference)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TReference
            Return CType(SerializerXml.Deserialize(s), TReference)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TReference object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TReference object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class TErrorDetail

#Region "Private fields"
        Private _timestamp As Date

        Private _stackTrace As String

        Private _additionalDetails As List(Of TErrorDetailAdditionalDetails)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._additionalDetails = New List(Of TErrorDetailAdditionalDetails)()
        End Sub

        Public Property timestamp() As Date
            Get
                Return Me._timestamp
            End Get
            Set
                Me._timestamp = Value
            End Set
        End Property

        Public Property stackTrace() As String
            Get
                Return Me._stackTrace
            End Get
            Set
                Me._stackTrace = Value
            End Set
        End Property

        <XmlElement("additionalDetails")>
        Public Property additionalDetails() As List(Of TErrorDetailAdditionalDetails)
            Get
                Return Me._additionalDetails
            End Get
            Set
                Me._additionalDetails = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TErrorDetail))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TErrorDetail object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TErrorDetail object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TErrorDetail object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorDetail, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErrorDetail)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorDetail) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TErrorDetail
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TErrorDetail)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TErrorDetail
            Return CType(SerializerXml.Deserialize(s), TErrorDetail)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TErrorDetail object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TErrorDetail object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TErrorDetail object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class TErrorDetailAdditionalDetails

#Region "Private fields"
        Private _type As String

        Private _key As String

        Private _value As String

        Private Shared _serializerXml As XmlSerializer
#End Region

        <XmlAttribute>
        Public Property type() As String
            Get
                Return Me._type
            End Get
            Set
                Me._type = Value
            End Set
        End Property

        <XmlAttribute>
        Public Property key() As String
            Get
                Return Me._key
            End Get
            Set
                Me._key = Value
            End Set
        End Property

        <XmlAttribute>
        Public Property value() As String
            Get
                Return Me._value
            End Get
            Set
                Me._value = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TErrorDetailAdditionalDetails))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TErrorDetailAdditionalDetails object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TErrorDetailAdditionalDetails object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TErrorDetailAdditionalDetails object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorDetailAdditionalDetails, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TErrorDetailAdditionalDetails)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TErrorDetailAdditionalDetails) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TErrorDetailAdditionalDetails
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TErrorDetailAdditionalDetails)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TErrorDetailAdditionalDetails
            Return CType(SerializerXml.Deserialize(s), TErrorDetailAdditionalDetails)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TErrorDetailAdditionalDetails object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TErrorDetailAdditionalDetails object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TErrorDetailAdditionalDetails object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType(AnonymousType:=True, [Namespace]:="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2")>
    Partial Public Class WarningMessages

#Region "Private fields"
        Private _warningMessage As List(Of TErrorMessageType)

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Sub New()
            MyBase.New
            Me._warningMessage = New List(Of TErrorMessageType)()
        End Sub

        <XmlElement("WarningMessage")>
        Public Property WarningMessage() As List(Of TErrorMessageType)
            Get
                Return Me._warningMessage
            End Get
            Set
                Me._warningMessage = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarningMessages))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize WarningMessages object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes WarningMessages object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output WarningMessages object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarningMessages, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, WarningMessages)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarningMessages) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As WarningMessages
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarningMessages)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As WarningMessages
            Return CType(SerializerXml.Deserialize(s), WarningMessages)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current WarningMessages object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an WarningMessages object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output WarningMessages object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     DebuggerStepThrough,
     DesignerCategoryAttribute("code"),
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2")>
    Partial Public Class TMetaReference

#Region "Private fields"
        Private _correlationId As String

        Private _company As String

        Private _plant As String

        Private _referenceType As String

        Private _referenceSid As Long

        Private Shared _serializerXml As XmlSerializer
#End Region

        Public Property correlationId() As String
            Get
                Return Me._correlationId
            End Get
            Set
                Me._correlationId = Value
            End Set
        End Property

        Public Property company() As String
            Get
                Return Me._company
            End Get
            Set
                Me._company = Value
            End Set
        End Property

        Public Property plant() As String
            Get
                Return Me._plant
            End Get
            Set
                Me._plant = Value
            End Set
        End Property

        Public Property referenceType() As String
            Get
                Return Me._referenceType
            End Get
            Set
                Me._referenceType = Value
            End Set
        End Property

        Public Property referenceSid() As Long
            Get
                Return Me._referenceSid
            End Get
            Set
                Me._referenceSid = Value
            End Set
        End Property

        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
            Get
                If (_serializerXml Is Nothing) Then
                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TMetaReference))
                End If
                Return _serializerXml
            End Get
        End Property

#Region "Serialize/Deserialize"
        ''' <summary>
        ''' Serialize TMetaReference object
        ''' </summary>
        ''' <returns>XML value</returns>
        Public Overridable Function Serialize() As String
            Dim streamReader As StreamReader = Nothing
            Dim memoryStream As MemoryStream = Nothing
            Try
                memoryStream = New MemoryStream()
                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
                SerializerXml.Serialize(xmlWriter, Me)
                memoryStream.Seek(0, SeekOrigin.Begin)
                streamReader = New StreamReader(memoryStream)
                Return streamReader.ReadToEnd
            Finally
                If (Not (streamReader) Is Nothing) Then
                    streamReader.Dispose()
                End If
                If (Not (memoryStream) Is Nothing) Then
                    memoryStream.Dispose()
                End If
            End Try
        End Function

        ''' <summary>
        ''' Deserializes TMetaReference object
        ''' </summary>
        ''' <param name="input">string to deserialize</param>
        ''' <param name="obj">Output TMetaReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMetaReference, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            obj = CType(Nothing, TMetaReference)
            Try
                obj = Deserialize(input)
                Return True
            Catch ex As System.Exception
                exception = ex
                Return False
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TMetaReference) As Boolean
            Dim exception As System.Exception = Nothing
            Return Deserialize(input, obj, exception)
        End Function

        Public Overloads Shared Function Deserialize(ByVal input As String) As TMetaReference
            Dim stringReader As StringReader = Nothing
            Try
                stringReader = New StringReader(input)
                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TMetaReference)
            Finally
                If (Not (stringReader) Is Nothing) Then
                    stringReader.Dispose()
                End If
            End Try
        End Function

        Public Overloads Shared Function Deserialize(ByVal s As Stream) As TMetaReference
            Return CType(SerializerXml.Deserialize(s), TMetaReference)
        End Function
#End Region

        ''' <summary>
        ''' Serializes current TMetaReference object into file
        ''' </summary>
        ''' <param name="fileName">full path of outupt xml file</param>
        ''' <param name="exception">output Exception value if failed</param>
        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
            exception = Nothing
            Try
                SaveToFile(fileName)
                Return True
            Catch e As System.Exception
                exception = e
                Return False
            End Try
        End Function

        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
            Dim streamWriter As StreamWriter = Nothing
            Try
                Dim dataString As String = Serialize()
                Dim outputFile As FileInfo = New FileInfo(fileName)
                streamWriter = outputFile.CreateText
                streamWriter.WriteLine(dataString)
                streamWriter.Close()
            Finally
                If (Not (streamWriter) Is Nothing) Then
                    streamWriter.Dispose()
                End If
            End Try
        End Sub

        ''' <summary>
        ''' Deserializes xml markup from file into an TMetaReference object
        ''' </summary>
        ''' <param name="fileName">File to load and deserialize</param>
        ''' <param name="obj">Output TMetaReference object</param>
        ''' <param name="exception">output Exception value if deserialize failed</param>
        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As 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 FileStream = Nothing
            Dim sr As StreamReader = Nothing
            Try
                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
                sr = New StreamReader(file)
                Dim dataString As String = sr.ReadToEnd
                sr.Close()
                file.Close()
                Return Deserialize(dataString)
            Finally
                If (Not (file) Is Nothing) Then
                    file.Dispose()
                End If
                If (Not (sr) Is Nothing) Then
                    sr.Dispose()
                End If
            End Try
        End Function
    End Class

    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9340.0"),
     System.Serializable,
     XmlType([Namespace]:="urn:http://www.mic-cust.com/MicMetadata/5.2", IncludeInSchema:=False)>
    Public Enum ItemChoiceType

        <XmlEnum("urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2:ErrorMessages")>
        ErrorMessages

        <XmlEnum("urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2:WarningMessages")>
        WarningMessages

        Reference
    End Enum
End Namespace
#Enable Warning