Fox Desde Guate

En VFP 9 se introdujo una gran mejora al reporteador, y es el objeto Report
Listener, el cual nos permite modificar la salida del reporte a nuestra
conveniencia (a html,pdf, jpg, etc), sobre este tema podemos encontrar muchisima informacion, en
especial, la que Amby de Portalfox amablemente a traducido para nosotros, asi
que de lectura recomendada:

• El Generador de informes de VFP 9.0 en acción - Parte 1
• El Generador de informes de VFP 9.0 en acción - Parte 2
• El Generador de informes de VFP 9.0 en acción - Parte 3

También contamos con algunos otros Excelentes articulos en PortalFox sobre
este tema:

• Novedades VFP 9.0 - Informes con formato XML empleando XMLlistener
• Novedades VFP 9.0 - Informes en formato HTML a partir de HTMLListener
• Novedades VFP 9.0 - Informes formato gráfico empleando la clase reportlistener

Asi que hoy les quiero dar a conocer un producto creado por un colega mío,Guatemalteco, Luis Navas, quien ha desarrollado algunas herramientas, para poder ayudar a su hijo Luis Navas Sandoval (jr.) quien es sordo de nacimiento, pero que aún tiene una esperanza de poder escuchar si se le realiza un implante coclear, el único problema es que la operación tiene un costo de $ 25,000 dólares americanos, asi que ya saben, esta es una buena forma de ayudar el costo es de 50$ la version completa y 100$ la version con codigo fuente.

La clase en sí, nos permite generar un PDF del resultado del reporte, pudiendo ser este encriptado, o no, o protegido por contraseña entre otras opciones, se ofrece en version shareware, para que puedan probar todas sus bondades y ver si cumple sus expectativas.
La forma de utilizar es muy simple y la clase incluye un form de ejemplo, acá está un código mío que actualmente estoy usando:

if isnull(lcFile) or
    empty(lcFile)
    Return &Aborto la generación del PDF
EndIf
loListener = NewObject(‘PdfListener’, ‘QuickVFPPDF.vcx’,‘M:\VMP2005; \QuickPDF\QuickPdfVfp.app’)
loListener.TargetFileName = Alltrim(lcFile)
loListener.QuietMode=.f.
loListener.EncryptDocument=.t.
loListener.MasterPassword=[MiPassWordMaster]
loListener.UserPassword=[MiClaveNormal]
loListener.OpenViewer=.f.
Report Form C:\VMP205\APP\miApp\Reports\MiReporte.FRX Object loListener