Imports System

Imports System.Collections.Generic

Imports System.IO

Imports System.Linq

Imports System.Security

Imports System.Xml

Imports System.Xml.Linq

Imports System.Xml.Schema

Imports System.Xml.Serialization

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim xml as new CXML() With {   

            .Header = new Header() With {

                .From = new From() With {

                    .Credential = new Credential() With {

                        .Identity = "ABC",

                        .Domain = "ABC"

                    }

                },

                .To = new [To]() With {

                    .Credential = new Credential() With {

                        .Identity = "ABC",

                        .Domain = "ABC"         

                    }

                },

                .Sender = new Sender() With {

                    .Credential = new Credential() With {

                        .Identity = "ABC",

                        .Domain = "ABC"         

                    },

                    .UserAgent = "ABC"

                }

            },

            .Request = new Request() With {

                .OrderRequest = new OrderRequest() With {

                    .OrderRequestHeader = new OrderRequestHeader() With {

                        .Total = new Total() With {

                            .Money = "ABC"              

                        },

                        .ShipTo = new ShipTo() With {

                            .Address = new Address() With {                 

                                .Name = new Name() With {

                                    .Lang = "ABC",                          

                                    .Text = "ABC"                       

                                },

                                .PostalAddress = new PostalAddress() With {                         

                                    .Street = "ABC",

                                    .City = "ABC",

                                    .State = "ABC",

                                    .PostalCode = "ABC",

                                    .Country = new Country() With {

                                        .IsoCountryCode = "ABC"

                                    }

                                },

                                .IsoCountryCode = "ABC",

                                .AddressID = "ABC"

                            }

                        },                

                        .BillTo = new BillTo() With {

                            .Address = new Address() With {                 

                                .Name = new Name() With {

                                    .Lang = "ABC",                          

                                    .Text = "ABC"                       

                                },

                                .PostalAddress = new PostalAddress() With {                         

                                    .Street = "ABC",

                                    .City = "ABC",

                                    .State = "ABC",

                                    .PostalCode = "ABC",

                                    .Country = new Country() With {

                                        .IsoCountryCode = "ABC"

                                    }

                                },

                                .IsoCountryCode = "ABC",

                                .AddressID = "ABC"

                            }

                        },                

                        .OrderDate = "ABC",                

                        .OrderID = "ABC",                

                        .OrderType = "ABC",                

                        .OrderVersion = "ABC",                

                        .Type = "ABC"

                    },

                    .ItemOut = new List(Of ItemOut) From {

                        new ItemOut() With {

                            .ItemID = new ItemID() With {

                                .SupplierPartID = "ABC",

                                .BuyerPartID = "ABC"

                            },

                            .ItemDetail = new ItemDetail() With {

                                .UnitPrice = new UnitPrice() With {

                                    .Money = "ABC"

                                },

                                .Description = new Description() With {

                                    .Lang = "ABC",

                                    .Text = "ABC"

                                },

                                .UnitOfMeasure = "ABC",

                                .Classification = new Classification() With {

                                    .Domain = "ABC"

                                }

                            },

                            .IsAdHoc = "ABC",

                            .LineNumber = "ABC",

                            .Quantity = "ABC"

                        }

                    }

                },

                .DeploymentMode = "ABC"

            },

            .Lang = "ABC",

            .Timestamp = "ABC",

            .PayloadID = "ABC"

        }

        Dim serializer as new XmlSerializer(gettype(CXML))

        using ms as new MemoryStream()

            serializer.Serialize(ms, xml)

            ms.position = 0

            Dim result as string = new StreamReader(ms).ReadToEnd()

            Console.WriteLine(result)

        end using

    End Sub

            <XmlRoot(ElementName:="Credential")>

            Public Class Credential

                <XmlElement(ElementName:="Identity")>

                Public Property Identity As String

                <XmlAttribute(AttributeName:="domain")>

                Public Property Domain As String

            End Class

​

            <XmlRoot(ElementName:="From")>

            Public Class From

                <XmlElement(ElementName:="Credential")>

                Public Property Credential As Credential

            End Class

​

            <XmlRoot(ElementName:="To")>

            Public Class [To]

                <XmlElement(ElementName:="Credential")>

                Public Property Credential As Credential

            End Class

​

            <XmlRoot(ElementName:="Sender")>

            Public Class Sender

                <XmlElement(ElementName:="Credential")>

                Public Property Credential As Credential

                <XmlElement(ElementName:="UserAgent")>

                Public Property UserAgent As String

            End Class

​

            <XmlRoot(ElementName:="Header")>

            Public Class Header

                <XmlElement(ElementName:="From")>

                Public Property From As From

                <XmlElement(ElementName:="To")>

                Public Property [To] As [To]

                <XmlElement(ElementName:="Sender")>

                Public Property Sender As Sender

            End Class

​

            <XmlRoot(ElementName:="Total")>

            Public Class Total

                <XmlElement(ElementName:="Money")>

                Public Property Money As String

            End Class

​

            <XmlRoot(ElementName:="Name")>

            Public Class Name

                <XmlAttribute(AttributeName:="lang", [Namespace]:="http://www.w3.org/XML/1998/namespace")>

                Public Property Lang As String

                <XmlText>

                Public Property Text As String

            End Class

​

            <XmlRoot(ElementName:="Country")>

            Public Class Country

                <XmlAttribute(AttributeName:="isoCountryCode")>

                Public Property IsoCountryCode As String

            End Class

​

            <XmlRoot(ElementName:="PostalAddress")>

            Public Class PostalAddress

                <XmlElement(ElementName:="Street")>

                Public Property Street As String

                <XmlElement(ElementName:="City")>

                Public Property City As String

                <XmlElement(ElementName:="State")>

                Public Property State As String

                <XmlElement(ElementName:="PostalCode")>

                Public Property PostalCode As String

                <XmlElement(ElementName:="Country")>

                Public Property Country As Country

            End Class

​

            <XmlRoot(ElementName:="Address")>

            Public Class Address

                <XmlElement(ElementName:="Name")>

                Public Property Name As Name

                <XmlElement(ElementName:="PostalAddress")>

                Public Property PostalAddress As PostalAddress

                <XmlAttribute(AttributeName:="isoCountryCode")>

                Public Property IsoCountryCode As String

                <XmlAttribute(AttributeName:="addressID")>

                Public Property AddressID As String

            End Class

​

            <XmlRoot(ElementName:="ShipTo")>

            Public Class ShipTo

                <XmlElement(ElementName:="Address")>

                Public Property Address As Address

            End Class

​

            <XmlRoot(ElementName:="BillTo")>

            Public Class BillTo

                <XmlElement(ElementName:="Address")>

                Public Property Address As Address

            End Class

​

            <XmlRoot(ElementName:="OrderRequestHeader")>

            Public Class OrderRequestHeader

                <XmlElement(ElementName:="Total")>

                Public Property Total As Total

                <XmlElement(ElementName:="ShipTo")>

                Public Property ShipTo As ShipTo

                <XmlElement(ElementName:="BillTo")>

                Public Property BillTo As BillTo

                <XmlAttribute(AttributeName:="orderDate")>

                Public Property OrderDate As String

                <XmlAttribute(AttributeName:="orderID")>

                Public Property OrderID As String

                <XmlAttribute(AttributeName:="orderType")>

                Public Property OrderType As String

                <XmlAttribute(AttributeName:="orderVersion")>

                Public Property OrderVersion As String

                <XmlAttribute(AttributeName:="type")>

                Public Property Type As String

            End Class

​

            <XmlRoot(ElementName:="ItemID")>

            Public Class ItemID

                <XmlElement(ElementName:="SupplierPartID")>

                Public Property SupplierPartID As String

                <XmlElement(ElementName:="BuyerPartID")>

                Public Property BuyerPartID As String

            End Class

​

            <XmlRoot(ElementName:="UnitPrice")>

            Public Class UnitPrice

                <XmlElement(ElementName:="Money")>

                Public Property Money As String

            End Class

​

            <XmlRoot(ElementName:="Description")>

            Public Class Description

                <XmlAttribute(AttributeName:="lang", [Namespace]:="http://www.w3.org/XML/1998/namespace")>

                Public Property Lang As String

                <XmlText>

                Public Property Text As String

            End Class

​

            <XmlRoot(ElementName:="Classification")>

            Public Class Classification

                <XmlAttribute(AttributeName:="domain")>

                Public Property Domain As String

            End Class

​

            <XmlRoot(ElementName:="ItemDetail")>

            Public Class ItemDetail

                <XmlElement(ElementName:="UnitPrice")>

                Public Property UnitPrice As UnitPrice

                <XmlElement(ElementName:="Description")>

                Public Property Description As Description

                <XmlElement(ElementName:="UnitOfMeasure")>

                Public Property UnitOfMeasure As String

                <XmlElement(ElementName:="Classification")>

                Public Property Classification As Classification

            End Class

​

            <XmlRoot(ElementName:="ItemOut")>

            Public Class ItemOut

                <XmlElement(ElementName:="ItemID")>

                Public Property ItemID As ItemID

                <XmlElement(ElementName:="ItemDetail")>

                Public Property ItemDetail As ItemDetail

                <XmlAttribute(AttributeName:="isAdHoc")>

                Public Property IsAdHoc As String

                <XmlAttribute(AttributeName:="lineNumber")>

                Public Property LineNumber As String

                <XmlAttribute(AttributeName:="quantity")>

                Public Property Quantity As String

            End Class

​

            <XmlRoot(ElementName:="OrderRequest")>

            Public Class OrderRequest

                <XmlElement(ElementName:="OrderRequestHeader")>

                Public Property OrderRequestHeader As OrderRequestHeader

                <XmlElement(ElementName:="ItemOut")>

                Public Property ItemOut As List(Of ItemOut)

            End Class

​

            <XmlRoot(ElementName:="Request")>

            Public Class Request

                <XmlElement(ElementName:="OrderRequest")>

                Public Property OrderRequest As OrderRequest

                <XmlAttribute(AttributeName:="deploymentMode")>

                Public Property DeploymentMode As String

            End Class

​

            <XmlRoot(ElementName:="cXML")>

            Public Class CXML

                <XmlElement(ElementName:="Header")>

                Public Property Header As Header

                <XmlElement(ElementName:="Request")>

                Public Property Request As Request

                <XmlAttribute(AttributeName:="lang", [Namespace]:="http://www.w3.org/XML/1998/namespace")>

                Public Property Lang As String

                <XmlAttribute(AttributeName:="timestamp")>

                Public Property Timestamp As String

                <XmlAttribute(AttributeName:="payloadID")>

                Public Property PayloadID As String

            End Class

​

End Module