Genera reportes .FRX y exporta a PDF con VisualFoxPro

logo_vfpDentro de la red social de Facebook, en el grupo llamado “Programadores de Visual FoxPo” 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)

 

5 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

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