Genera reportes .FRX y exporta a PDF con VisualFoxPro

logo_vfpDentro de la red social de Facebook, en el grupo llamado “Programadores de Visual FoxPro” puso a disposición el usuario “Juanki Laime” una forma de crear en tu sistema hecho con el lenguaje FoxPro, el poder exportar tu reportes a formato PDF.

Se comentó lo siguiente:

Generar Reporte .FRX a PDF

Fichero a descargar en [este enlace] opción 2 [este otro enlace].

Nota: No olvide de borrar la extensión .txt para recién tenerlo como un .zip y luego descomprimirlo.

Fácil y rápido sin usar impresoras PDFs o artificios complejos, solo deberá colocar esos archivos adjuntos en el .Zip, y armar su reporte en Visual FoxPro como siempre y ejecutar la siguiente línea:

Do reportpdf.App With lcReporte, lcFilePdf, .F.,.T.,.T.,[]

Explicación:

lcReporte (ruta y archivo .frx)
lcFilePdf (ruta y archivo .pdf)
el resto de parámetros dejarlos tal cual…

Este es un aporte cuyo origen no me acuerdo, pero que ya lo probé en VFP9 y funciona, mientras que en VFP6 no funciona.


En lo personal funciona muy bien, incluso hice unos justes donde el resultado fuera creado en escritorio del sistema operativo de la siguiente forma:

Paso 1.- El contenido del Zip de copio en el directorio donde tienes tu ejecutable de tu sistema creado con VisualFoxPro (.exe)

Paso 2.- Crear un botón similar en tu sistema donde haces llamado de tu formulario, y colocas el código anteriormente comentado, en mi caso quise que el PDF lo guardara en el escritorio, si que aumenté el código de la siguiente forma:

* Busca la ruta del escritorio
o1Shell = CREATEOBJECT('WScript.Shell')
myDesktop = oShell.SpecialFolders('Desktop')

*! Genero PDF

TRY
	DO reportpdf.app WITH "CLIENTESLISTACORTE.frx",myDesktop + "\Lista_de_Corte.pdf",.F.,.T.,.T.,[]
CATCH TO loError
     lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
     [Linea: ] + STR(loError.LINENO) + CHR(13) + ;
     [Mensaje: ] + loError.MESSAGE
FINALLY
	=MESSAGEBOX("Fichero PDF Creado Correctamente en el Escritorio.")
ENDTRY

Y solo resta generar el reporte desde tu sistema.

Fuente: RedSocial Facebook (Grupo Programadores de VisualFoxPro)

 

10 pensamientos en “Genera reportes .FRX y exporta a PDF con VisualFoxPro

  1. El enlace no funciona, envía el siguiente mensaje,

    “Este Contenido no esta disponible en este momento”
    es posible que el enlace que seguiste haya caducado o que la página solo sea visible para un publico al que no perteneces

    No tengo antivirus instalado en mi PC

    Y si no fuera tanta molestia me lo puedes enviar a edutosa@hotmail.com
    Gracias

    Me gusta

  2. Hola!

    Muchas gracias por compartir este articulo.

    Tengo esta sentencia:

    REPORT form infcta for creditos.dnisolic=mdoc previe noconsole

    Do reportpdf.App With ‘infcta.frx’, ‘infcta.pdf’ , .F.,.T.,.T.,[]

    cuendo me crea el archivo pdf me lo crea completo sin los filtros que le indico en el reporte.

    Me podrias ayudar a solucionarlo.

    Muchas gracias de antemano.

    Me gusta

  3. Saludos, he estado usando esta herramienta en varios equipos pero en otros sin ningún motivo genera el siguiente error al ejecutar la misma linea de código: Error en el módulo : REPORTPDF / Número de Linea : 56 / El archivo no existe. / Error Número 1. ??? Me podrías ayudar a entender el por qué arroja este error en algunas maquinas….

    Me gusta

Deja una opinión

Por favor, inicia sesión con uno de estos métodos para publicar tu comentario:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s