Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Como llamar a un webservice desde VFP
Message
From
10/03/2007 15:52:36
 
 
General information
Forum:
Visual FoxPro
Category:
Internet applications
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01201543
Message ID:
01202546
Views:
58
Gracias,
anduvo todo ok.
LOCAL loWSATLATU AS "XML Web Service"
* LOCAL loWSATLATU AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loWSATLATU = http://www.aduanas.gub.uy/webservicesuy/awsatlatu.aspx?wsdl , WSATLATU , WSATLATUSoapPort
LOCAL loException, lcErrorMsg, loWSHandler
TRY
	loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
	loWSATLATU = loWSHandler.SetupClient("http://www.aduanas.gub.uy/webservicesuy/awsatlatu.aspx?wsdl", "WSATLATU", "WSATLATUSoapPort")
	* Call your XML Web service here.  ex: leResult = loWSATLATU.SomeMethod()
        && aca obtendría los datos de la AT 3041375
	loResul = loWSATLATU.Execute(3041375)
    
CATCH TO loException
 	lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
 	DO CASE
 	CASE VARTYPE(loWSATLATU)#"O"
 		* Handle SOAP error connecting to web service
 	CASE !EMPTY(loWSATLATU.FaultCode)
 		* Handle SOAP error calling method
 		lcErrorMsg=lcErrorMsg+CHR(13)+loWSATLATU.Detail
 	OTHERWISE
 		* Handle other error
 	ENDCASE
 	* Use for debugging purposes
 	MESSAGEBOX(lcErrorMsg)
 FINALLY
 ENDTRY
ahora bien, no se como acceder a los campos que vienen en loResul que es donde debería quedar los datos que provee el webservice no ?
Como puedo hacer esto ?
Desde ya muchisimas gracias por tu tiempo.
Claudio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform