ValidaCFD

HOA DADO:

Buen dia, oye una pregunta porque no me timbra cuando genero un XML que trae Retencion de Impuestos como el ISR y el IVA Retenido.

no me regresa ni error ni mensaje de nada. asi que no se que pase o no se si TimbreFiscal no haga el timbrado cuando el XML tiene esos impuestos.


Saludos!

mm Creo que ya se, me regresa un error al validar el XML que dice que no encuentra estos namespace

"[ERROR] Expecting: {http://www.sat.gob.mx/cfd/3}Retenciones,
{http://www.sat.gob.mx/cfd/3}Traslados.

o me supongo que deberia ser cfdi en lugar de cfd verdad!!!

nema26 escribió:mm Creo que ya se, me regresa un error al validar el XML que dice que no encuentra estos namespace

"[ERROR] Expecting: {http://www.sat.gob.mx/cfd/3}Retenciones,
{http://www.sat.gob.mx/cfd/3}Traslados.

o me supongo que deberia ser cfdi en lugar de cfd verdad!!!

Sube uno de tus XML aqui para darle una checada

Hola dado:

Te envio el XML ya timbrado claro como prueba pero no me lo valida en el SAT.


SAludos

nema26 escribió:Hola dado:

Te envio el XML ya timbrado claro como prueba pero no me lo valida en el SAT.


SAludos

Le falta el prefijo cfdi: al nodo retenciones

<Retenciones>
<Retencion impuesto="IVA" importe="53.33" />
<Retencion impuesto="ISR" importe="50.00" />
</Retenciones>
<cfdi:Traslados>
<cfdi:Traslado impuesto="IVA" tasa="16.00" importe="80.00" />
</cfdi:Traslados>

Hola dado:

Saludos ya me funciono muchas gracias por todo

GRACIAS !!!!!

Hola amigo Dado, hola foro...

He estado un poco desconectado de este foro y veo que el ejemplo de Visual Foxpro de la librería está dando algunos problemas, aquí les dejo el formulario 'actualizado' que se baja en la demo de la librería les recomiendo que bajen la librería y la descompriman directamente C:\, en esa carpeta pongan el formulario que mando, en la raíz de esa carpeta y corranlo desde el zorro, todo debe funcionar bien así como a mi me funciona.

Nota: sólo hay un detalle que no se ha podido solucionar, la prueba de la llave privada, según la ayuda de la librería, esta función regresa un valor booleano que no se puede capturar en FoxPro.
Pueden encontrar una solución alterna a esta prueba con código 100% FoxPro en el foro de google https://groups.google.com/forum/#!forum ... ica-mexico.

PD: Gracias al compañero José Torres que le dio los retoques al formulario.

Hola buenas noches,

Estoy probando la dll CFDLib.dll en Visual Fox y me marca un mensaje de error que no puede cargar la libreria, el código que estoy probando es el siguiente:

PUBLIC rta
rta = ""


DECLARE string CFDLibVersion IN "c:\cfdlibtest_vfp\CFDLib.dll"
*DECLARE string CFDLibVersion IN 'CFDLib.dll'
DECLARE PruebaSimple IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string PruebaClaveDeLlavePrivada IN 'c:\cfdlibtest_vfp\CFDLib.dll' string, string
DECLARE string GeneraCFD IN 'c:\cfdlibtest_vfp\CFDLib.dll' string, string
DECLARE string TimbrarCFD IN 'c:\cfdlibtest_vfp\CFDLib.dll' string
DECLARE string GetError IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string GetErrorExt IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string CadenaOriginal IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string SelloDigital IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE FinalizaCFDLib IN "c:\cfdlibtest_vfp\CFDLib.dll"


lcArchivoIni = GETFILE("Archivo INI(*.ini):INI", "Archivo INI", "Abrir", 0, "Abrir archivo")
IF EMPTY(lcArchivoIni)
RETURN .F.
ENDIF

* Crear factura desde archivo ini
****** En esta linea me esta marcado el error
****** Canot load 32-bit DLL c:\cfdlibtest_vfp\cfdlib.dll

lResu = GeneraCFD(lcArchivoIni, 'a0123456789') && La clave está predefinida con la de pruebas

* Captura los errores si hay
lcError = GetError()
lcErrorE = GetErrorExt()

IF LEN(lcError) > 0 THEN
MESSAGEBOX("Error encontrado: " + lcError + ' - ' + lcErrorE)
ELSE
* Cadena y Sello
lcCadena = CadenaOriginal()
lcSelloD = SelloDigital()

MESSAGEBOX("Se grabo la factura en formato XML"+CHR(13)+CHR(13)+ ;
"La Cadena Original y el Sello Digital son"+CHR(13)+CHR(13)+ ;
SUBSTR(lcCadena,1,40)+'...'+CHR(13)+CHR(13)+ ;
SUBSTR(lcSelloD,1,40)+'...')
ENDIF



Si alguien tiene una respuesta se los agradezco

Saludos

Asegurate de haber grabado la libreria en :

DECLARE string CFDLibVersion IN "c:\cfdlibtest_vfp\CFDLib.dll"

O cambia la ruta segun sea necesario.

Buen día,


Copie todo en el directorio c:\cfdlibtest_vfp\
en el cual estan tanto las dll asi como el program, y al ejecutar el programa, ahora marca un mensaje:

No se encuentra el punto de entrada del procedimiento PKCS8_decrypt en la biblioteca de vinculos dinámicos libeay32.dll

No se si también tengan que definirse en el programa el uso de la libeay32.dll

Una vez que cancelo el mensaje el programa se queda en la linea

lResu = GeneraCFD(lcArchivoIni, 'a0123456789') && La clave está predefinida con la de pruebas

El código que utilizo es:

PUBLIC rta
rta = ""


DECLARE string CFDLibVersion IN 'c:\cfdlibtest_vfp\CFDLib.dll'
** C:\cfdlibtest_vfp
*DECLARE string CFDLibVersion IN 'CFDLib.dll'
DECLARE PruebaSimple IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string PruebaClaveDeLlavePrivada IN 'c:\cfdlibtest_vfp\CFDLib.dll' string, string
DECLARE string GeneraCFD IN 'c:\cfdlibtest_vfp\CFDLib.dll' string, string
DECLARE string TimbrarCFD IN 'c:\cfdlibtest_vfp\CFDLib.dll' string
DECLARE string GetError IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string GetErrorExt IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string CadenaOriginal IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE string SelloDigital IN 'c:\cfdlibtest_vfp\CFDLib.dll'
DECLARE FinalizaCFDLib IN "c:\cfdlibtest_vfp\CFDLib.dll"


lcArchivoIni = GETFILE("Archivo INI(*.ini):INI", "Archivo INI", "Abrir", 0, "Abrir archivo")
IF EMPTY(lcArchivoIni)
RETURN .F.
ENDIF

* Crear factura desde archivo ini
lResu = GeneraCFD(lcArchivoIni, 'a0123456789') && La clave está predefinida con la de pruebas

* Captura los errores si hay
lcError = GetError()
lcErrorE = GetErrorExt()

IF LEN(lcError) > 0 THEN
MESSAGEBOX("Error encontrado: " + lcError + ' - ' + lcErrorE)
ELSE
* Cadena y Sello
lcCadena = CadenaOriginal()
lcSelloD = SelloDigital()

MESSAGEBOX("Se grabo la factura en formato XML"+CHR(13)+CHR(13)+ ;
"La Cadena Original y el Sello Digital son"+CHR(13)+CHR(13)+ ;
SUBSTR(lcCadena,1,40)+'...'+CHR(13)+CHR(13)+ ;
SUBSTR(lcSelloD,1,40)+'...')
ENDIF


Gracias por el apoyo

Saludos...