Webservice

[Edwin Duran]

Buen día, le comento que es la primera vez que voy a trabajar con webservice,  en el siguiente link me dice las funciones que existen https://dgii.gov.do/wsMovilDGII/WSMovilDGII.asmx

y desde visual  encontré este código pero no he podido poner a funcionar, tengo vfp9 con windows 10

*------Ejemplo para consumir un webservice--------------* 

*------jecutar una consulta y como resultado obtener un cursor 

LOCAL loWSPrueba AS "XML Web Service"

LOCAL loException, lcErrorMsg, loWSHandler

TRY

loWSPrueba = CREATEOBJECT("MSSOAP.SoapClient30")

loWSPrueba.MSSoapInit("https://dgii.gov.do/wsMovilDGII/WSMovilDGII.asmx?WSDL")

* Llamo al metodo que cree en el Web Service

oXML = loWSPrueba.GetContribuyentes("130763862")

IF VARTYPE(oXML.item(1).firstChild)="O" &&Verifico si se creo el objeto oXML 

* Convierto el Dataset a Cursor VFP 

XMLTOCURSOR(oXML.item(1).firstChild.xml,"TmpPedido") 

ENDIF

CATCH TO loException

lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message

DO CASE

CASE VARTYPE(loWSPrueba)#"O"

lcErrorMsg = "Falla de conexion al Web Service"

CASE !EMPTY(loWSPrueba.FaultCode)

* SOAP error al llamar al metodo

lcErrorMsg=lcErrorMsg+CHR(13)+loWSPrueba.Detail

OTHERWISE

* Otros errores

ENDCASE

MESSAGEBOX(lcErrorMsg,16,"Error...")

FINALLY

* si todo esta bien hacemos un browse a nuestro cursor

IF USED("TmpPedido")

SELECT TmpPedido

BROWSE 

ENDIF 

ENDTRY

[Ricardo Soldini]

Hola Edwin 

ese codigo funciona perfecto (yo lo uso) 

tienes que tener habilitado el sopadsk que viene con el ejemplo (eso instala el MSSOAP.SoapClient3 en tu computadora

despues debes instalar ese soap en todas las maquinas que utilizaran la aplicacion que accede a webservice

lo otro asegurate de que puedes consumir el webservice manualmente a traves del task panel

asi tendras la certeza de que estas poniendo adecuadamente la direccion web del servidor que intentas acceder

[Edwin Duran]

Gracias, el SoapClient3 lo instale e intenet correrlo del taskpanel y tampoco ahí funciono

[Victor Espina]

El SOAPClient no funciona son el protocolo HTTPS (pero si con HTTP).   La unica forma de poder manejarte con esos webservices desde VFP es hacer un wrapper en .NET.  Mira este articulo:

http://www.victorespina.com.ve/wiki/index.php?title=Crear_una_DLL_en_.NET_y_usarla_en_VFP

Basicamente lo que haces es usar el asistente de webservices de .NET para crear una clase proxy que es la que se comunica con el webservice y te permite invocar los metodos expuestos por el WS y obtener las respuestas en formato XML.   Luego, creas una clase con metodos "publicos" que pueddas instanciar e invocar desde VFP (tal como se explica en el articulo) y desde esos metodos invocas a los metodos de la clase proxy.

Saludos

Victor Espina

[Edwin Duran]

gracias

[James Suárez]

supongo que no conoces mi librería kodnet https://github.com/voxsoftware/kodnet

[Edwin Duran]

Si, pero como no tengo nociones de .net no la he probado.