Need to send value into the webservice

S

saro_j

In Class module

I have a struct called struct_RateWSO
It contains the following

Public OriginZip As String
Public DestZip As String
Public ShipDate As String
Public CustID As String
Public SCAC As String
Public ServiceLevel As String
Public ProfileID As String
Public Weight As Variant
Public RatedAmount As Double
Public RatedBEO As struct_RatedBEO
'"LTLBEOList" is an array with elements defined as struct_LtlBEO
'See Complex Types: Arrays in Web Service References Tool 2.0 Help
'for details on implementing arrays.
Public LTLBEOList As Variant

In Class module
I have a class called clsws_Service

Public Function wsm_RateShipment(ByVal ar_rateWSOList As Variant) As
Variant
'*****************************************************************
'Proxy function created from http://68.195.201.131/IGLLIVE/RateWebService/Service.asmx?wsdl.
'
'"wsm_RateShipment" is an array with elements defined as
struct_RateWSO
'"ar_rateWSOList" is an array with elements defined as
struct_RateWSO
'See Complex Types: Arrays in Web Service References Tool 2.0 Help
'for details on implementing arrays.
'*****************************************************************

'Error Trap
On Error GoTo wsm_RateShipmentTrap

wsm_RateShipment = sc_Service.RateShipment(ar_rateWSOList)

Exit Function
wsm_RateShipmentTrap:
ServiceErrorHandler "wsm_RateShipment"
End Function


I need to pass value into this from VBA code

Please help me out in this .
Thanks.
Saro
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top