RE: [vfp-fem] Cancelación con FEL
Ing. Bernardo José Martínez Pérez
Saludos
De: Carlos Cruz
Enviado el: 23/03/2015 21:47
Para: vfp-factura-ele...@googlegroups.com
Asunto: [vfp-fem] Cancelación con FEL
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 mensajes, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar 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 acceder a más opciones, visita https://groups.google.com/d/optout.
Carlos Cruz
El lunes, 23 de marzo de 2015, 21:57:46 (UTC-6), Berny escribió:
Para el caso de cancelaciones, creo que no puedes utilizar la cuenta de demo, verifícalo de todas maneras con el soporte de fel.
Saludos
Asunto: [vfp-fem] Cancelación con FEL
Buenas noches amigos del grupo estoy haciendo la cancelación con FEL, el código utilizado a manera de ejemplificar es el siguiente:--DIMENSION lcUUID(1)LOCAL WSFel AS "XML Web Service"LOCAL oRespuesta, lcMensajelcUUID(1) = "6F971AC8-7E57-7E57-7E57-9C88BA8BC353"lcPfxB64 = FILETOSTR("C:\CFDi32\archivo.pem")lcPasswPfx = "Viaranda9"WSFel = CREATEOBJECT("MSSOAP.SoapClient30")WSFel.MSSoapInit("http://timbrado.facturarenlinea.com/WSTFD.svc?singleWsdl", "WSTFD", "soapHttpEndpoint")oRespuesta = WSFel.CancelarCFDI("DEMO000919KJ9", "aJ8nspdA", "GAR000919KJ9", @lcUUID, lcPfxB64 ,lcPasswPfx)lcMensaje = oRespuesta.item(3).text= MESSAGEBOX(lcMensaje,16,"")Me envía el siguiente Error: "La lista CFDI no puede ser vacía"me podrían ayudar a identificar cual es mi error, gracias de antemano por sus comentarios.
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 mensajes, envía un correo electrónico a vfp-factura-electronica-mexico+unsubscribe@googlegroups.com.
Para publicar en este grupo, envía un correo electrónico a vfp-factura-electronica-mex...@googlegroups.com.
Bernardo Jose Martinez Perez
LOCAL loWS_TFD AS "XML Web Service"
* LOCAL loWS_TFD AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loWS_TFD = https://www.fel.mx/WS-TFD/WS-TFD.asmx?WSDL , WS_TFD , WS_TFDSoap
LOCAL loException, lcErrorMsg, loWSHandler
Dimension faccan(1),leResult(3)
faccan(1)=Alltrim(tblfac.uuid)
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loWS_TFD = loWSHandler.SetupClient("https://www.fel.mx/WS-TFD/WS-TFD.asmx?WSDL", "WS_TFD", "WS_TFDSoap")
* Call your XML Web service here. ex: leResult = loWS_TFD.SomeMethod()
leResult = loWS_TFD.CancelarCFDI("USUARIO","CONTRASEÑA",Alltrim(rfc),@faccan,Alltrim(ARCHIVO-PFX),"CONTRASEÑA_CANCELACION")
cMensaje=Alltrim(leResult(1))+Alltrim(leResult(2))
If "|201|"$cMensaje
cCancela=.T.
MessageBox(Substr(cMensaje,1,At("|",cMensaje,1)-1)+Chr(13)+Substr(cMensaje,At("|",cMensaje,1)+1,3)+" "+Substr(cMensaje,At("|",cMensaje,2)+1),64,"* Cancelación Correcta *")
Else
cCancela=.F.
MessageBox(Alltrim(leResult(1))+Chr(13)+Alltrim(leResult(2)),16,"* Error al Cancelar *")
StrToFile(leResult(1)+Chr(13)+leResult(2)+Chr(13)+leResult(3),"Error_"+Alltrim(tblfac.serie)+tblfac.folio+".log")
EndIf
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loWS_TFD)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loWS_TFD.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loWS_TFD.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com.
Para publicar en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
Carlos Cruz
El lunes, 23 de marzo de 2015, 21:57:46 (UTC-6), Berny escribió:
Para el caso de cancelaciones, creo que no puedes utilizar la cuenta de demo, verifícalo de todas maneras con el soporte de fel.
Saludos
Asunto: [vfp-fem] Cancelación con FEL
Buenas noches amigos del grupo estoy haciendo la cancelación con FEL, el código utilizado a manera de ejemplificar es el siguiente:--DIMENSION lcUUID(1)LOCAL WSFel AS "XML Web Service"LOCAL oRespuesta, lcMensajelcUUID(1) = "6F971AC8-7E57-7E57-7E57-9C88BA8BC353"lcPfxB64 = FILETOSTR("C:\CFDi32\archivo.pem")lcPasswPfx = "Viaranda9"WSFel = CREATEOBJECT("MSSOAP.SoapClient30")WSFel.MSSoapInit("http://timbrado.facturarenlinea.com/WSTFD.svc?singleWsdl", "WSTFD", "soapHttpEndpoint")oRespuesta = WSFel.CancelarCFDI("DEMO000919KJ9", "aJ8nspdA", "GAR000919KJ9", @lcUUID, lcPfxB64 ,lcPasswPfx)lcMensaje = oRespuesta.item(3).text= MESSAGEBOX(lcMensaje,16,"")Me envía el siguiente Error: "La lista CFDI no puede ser vacía"me podrían ayudar a identificar cual es mi error, gracias de antemano por sus comentarios.
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 mensajes, envía un correo electrónico a vfp-factura-electronica-mexico+unsubscribe@googlegroups.com.
Para publicar en este grupo, envía un correo electrónico a vfp-factura-electronica-mex...@googlegroups.com.
Ing. Bernardo José Martínez Pérez
Espero que te haya aclarado tu duda.
Saludos.
De: Carlos Cruz
Enviado el: 24/03/2015 09:43
Para: vfp-factura-ele...@googlegroups.com
Asunto: Re: [vfp-fem] Cancelación con FEL
Para publicar en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.