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


0