Te paso el mío y ves las diferencias!
Local loService As "XML Web Service"
Set Safety Off
Local loException, lcErrorMsg, loWSHandler
Local loRespuesta,lnParte
loRespuesta=Null
Try
loWSHandler =
Newobject("WSHandler",Iif(Version(2)=0,"",Home()+"FFC\")+"_ws3client.vcx")
loService = loWSHandler.SetupClient(This.WebServiceWsfe, "Service",
"ServiceSoap")
loRespuesta=loService.FEdummy()
Catch To loException
lcErrorMsg="Error: "+Transform(loException.ErrorNo,"999999")+" -
"+loException.Message
Do Case
Case Vartype(loService)#"O"
* Handle SOAP error connecting to web service
lcErrorMsg=lcErrorMsg+Chr(13)+"Verifique conexión de Internet"
Case !Empty(loService.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+Chr(13)+loService.Detail
Otherwise
* Handle other error
lcErrorMsg=lcErrorMsg+Chr(13)+loService.Detail
Endcase
* Use for debugging purposes
Finally
Endtry
IF !Empty(lcErrorMsg)
This.MsgError=lcErrorMsg
This.ConectoOk=.F.
Else
For Each loLinea In loRespuesta
Do Case
Case loLinea.NodeName='AppServer'
This.AppServer=loLinea.Text
Case loLinea.NodeName='DbServer'
This.DbServer=loLinea.Text
Case loLinea.NodeName='AuthServer'
This.AuthServer=loLinea.Text
Endcase
Next loLinea
This.ConectoOk=.T.
Endif
Saludos,
Pancho
Cordoba
El 20 de agosto de 2011 09:16, Hernan O. Suligoy
<[email protected]>escribió:
> Hola de nuevo, abusando su buena voluntad, esta es una porcion del codigo
> que ejecuto
> para probar mi codigo con el metodo Dummy, no obtengo ningun error por lo
> que supongo
> que esta funcionando, y en respo obtengo un objeto, la pregunta es como
> traduzco este objeto
> que supongo es la respuesta, al archivo xml respuesta que deberia
> obtener...
> Desde ya Muchas gracias...
>
> TRY
>
> loWSHandler =
> NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
> loService = loWSHandler.SetupClient(this.WebServiceWsfe, "Service",
> "ServiceSoap")
> respo = loService.FEDummy()
>
>
> CATCH TO loException
> lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" -
> "+loException.Message
> DO CASE
>
>
>
> HERNAN SULIGOY
> Reconquista (Santa Fe)
>
