The only problem I see here is with the Array Based Parameters.
I think you're going to have to see an output string to see exactly
how the packaged output looks, so you can do it n RB.
I don't think RB SOAP supports array parameters.
Other than that is it very straight forward.
Dim sMethod as SoapMethod
Dim result as SoapResult
sMethod = New SoapMethod
sm.parameter("DealerID") = "999999"
.
.
.
.
sMethod.url = "https://webservice.somecompany.com/OutsideAPI.asmx";
sMethod.methodNamespace = "https://webservice.somecompany.com/
OutsideAPI.asmx&"
sMethod.action = "WDSL"
result = sMethod.invoke("WDSL")
// check for error
If result.error = True then
msgbox result.errorMessage
else
MsgBox result.result("DSIExtWS") // If I understand correctly - am
unsure about the line "Dim co As New WS.DSIExtWS"
end
- Tom
On 04/02/2007, at 11:35 AM, Robert Garcia wrote:
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>
