Soap method call, convert from VB

[Robert Garcia]

Looking for anyone that has converted any VB/.NET soap calls to RB. I  
have used the soap class in the past, but for more simple functions.  
Is it possible to use the soap class, and mimic this function in RB?  
This was given to me by a company to make the call to. Any help  
appreciated.


We Reference: https://webservice.somecompany.com/OutsideAPI.asmx
WDSL: https://webservice.somecompany.com/OutsideAPI.asmx&WDSL


Private WS As New OutsideAPI (declare web reference object)


    Private Function SubmitOrder() As String
        Dim o As New WS.OrderStruct
        o.DealerID = "999999"
        o.DealerOrderNumber = "Test1"
        'o.SalesPersonInitials = "CJO"
        o.ShipVia = "UPS*"
        'o.OrderDate = Date.Today.AddDays(-2).ToShortDateString
        'o.Memo1 = "Test of Memo 1"
        'o.Memo2 = "Test of Memo 2"
        'o.Memo3 = "Test of Memo 3"
        'o.PendingAccountNo = "123456789"

        o.CustomerInfo = New WS.CustomerStruct
        o.CustomerInfo.FirstName = "Joe"
        o.CustomerInfo.LastName = "TestMan"
        o.CustomerInfo.HomePhone = "515-123-4567"
        'o.CustomerInfo.WorkPhone = "0987654321"
        'o.CustomerInfo.Email = "[EMAIL PROTECTED]"

        ReDim o.Addresses(0)
        o.Addresses(0) = New WS.AddressStruct
          o.Addresses(0).Type = WS.Address_Type.Service
        o.Addresses(0).Address1 = "123 Test Street"
        'o.Addresses(0).Address2 = "Suite 2"
        o.Addresses(0).City = "Anywhere"
        o.Addresses(0).State = "Iowa"
        o.Addresses(0).Zip = "50322"

        ReDim o.OrderItems(1)
        o.OrderItems(0) = New WS.OrderItemStruct
        o.OrderItems(0).SkuNumber = "D10"
        o.OrderItems(0).Quantity = "1"
        'o.OrderItems(0).POLineID = "1"
                 o.OrderItems(1) = New WS.OrderItemStruct
        o.OrderItems(1).SkuNumber = "46DTVDE2"
        o.OrderItems(1).Quantity = "1"
        'o.OrderItems(1).POLineID = "1"


        Dim co As New WS.DSIExtWS
        Dim respString As String = co.CreateOrder(o)
        Return respString

    End Sub

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>