Mssoap
Rodolfo Ortiz González
Armando Rodríguez
Que error te marca ?
Saludos
Armando
--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
Visita este grupo en http://groups.google.com/group/vfp-factura-electronica-mexico.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
Rodolfo
Pero apenas estoy creando el objeto con createobjet, saludos.
Armando Rodríguez
PUBLIC oWS AS "XML Web Service"
lcDirWS = https://cfdi.url/ejemplo/ejemplo.asmx?WSDL"
oWS = CREATEOBJECT("MSSoap.SoapClient30")
loException = null
llError = .F.
TRY
oWS.ClientProperty("ServerHTTPRequest") = .T.
lstatus = oWS.MSSoapInit(lcDirWS)
CATCH TO loException
llError = .T.
ENDTRY
IF llError
lcEdtRespuesta = "No se pudo leer el archivo WSDL desde " + lcDirWS
RETURN .f.
ENDIF
Lo tienes de esta manera ?
Saludos
Rodolfo
Jejejeje no,.no tan completo amigo.
Me la puedo piratear, saludos :)
J. Alejandro Cervantes
puedes registrar el webservice en vfp9
entrando a tools -> toolbox
selecciona my XML web services -> register
te pedira la direccion del web service
click en boton register y listo
despues seleccionas el web service registrado lo arrastas a tu programa y te dara este codigo mas o menos
ya listo para usar
LOCAL loCFDi AS "XML Web Service"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
LOCAL loException, lcErrorMsg, loWSHandler
m.lcErrorMsg = ""
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loCFDi = loWSHandler.SetupClient("https://proveedor de timbrado/CFDi?wsdl", "CFDiService","CFDi")
* Call your XML Web service here. ex: leResult = loCFDi.SomeMethod()
cfdi_respuesta = loCFDi.getTimbreCfdi(ws_user,ws_Pass,WS_file)
STRTOFILE(cfdi_respuesta,'archivotimbrado') && genera el archivo de timbre local
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loCFDi)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loCFDi.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loCFDi.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
THISFORM.Displaywarning("ERROR: "+lcErrorMsg)
FINALLY
ENDTRY
De: Armando Rodríguez <armandor...@hotmail.com>
Para: vfp-factura-ele...@googlegroups.com
Enviado: Martes, 20 de agosto, 2013 9:51:17
Asunto: RE: [vfp-fem] Mssoap
