Visual Basic - consumir webServices con visual

Life is soft - evento anual de software empresarial
 
Vista:

consumir webServices con visual

Publicado por webServices (1 intervención) el 20/05/2009 16:51:56
Hola amigos, estoy comenzando a investigar sobre webServices y Visual Basic 6.0,,,pero necesito de ayuda para poder realizarlo, tengo una sencilla aplicacion que me pasaron de ejemplo pero me da error:

el problema es, como paso los parametros al SoapClient,,porque el webService al que quiero conectarme aceptas varios parametros :
<element minOccurs="1" maxOccurs="1" name="Nrotarjeta" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Montopago" type="xsd:double"/>
<element minOccurs="1" maxOccurs="1" name="Origen" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Formapago" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Nrocheque" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Ctadebito" type="xsd:int"/>
<element minOccurs="1" maxOccurs="1" name="Nropedido" type="xsd:short"/>
<element minOccurs="1" maxOccurs="1" name="Idusuario" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Pwdusuario" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Nrotransaccion" type="xsd:long"/>
<element minOccurs="1" maxOccurs="1" name="Codretorno" type="xsd:string"/>
<element minOccurs="1" maxOccurs="1" name="Msgretorno" type="xsd:string"/>

mi ejemplo es:

----------------------------------
Private Sub Command1_Click()
Dim MiSoapWS As New SoapClient30
'On Local Error Resume Next

MiSoapWS.MSSoapInit "c:Pagos de creditos.wsdl", "Servicio", "SoapPort"

Text1.Text = MiSoapWS.execute() ' Esta linea da error en los parametros

Set MiSoapWS = Nothing
End Sub
------------------------------------
El error que da es: Client: Incorrect number of parameters supplied for SOAP request...
Espero me ayuden.
Gracias
Roberto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder