Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Como llamar a un webservice desde VFP
Message
De
10/03/2007 15:52:36
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Versions des environnements
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01201543
Message ID:
01202546
Vues:
54
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform