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
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