La versión 9.0 incluyó muchos cambios en la generación de informes. Uno de esos cambios es permitir de forma nativa la salida en formato HTML de los informes a partir de la nueva clase base REPORTLISTENER *---------------------------------------------------------
* Método:
* SALIDAHTML.PRG
* Programador:
* Ana María Bisbé York
* Fecha de Terminación:
* 07/02/05 11:54:48 AM
* Comentarios:
* Este ejemplo fue mostrado en el IV Encuentro de Desarrolladores realizado por
* Danysoft Internacional www.danysoft.com en Febrero 2005 en Microsoft Ibérica.
* en la sesión Novedades de Visual FoxPro 9.0
*
* La versión 9.0 incluyó muchos cambios en la generación de informes
* Uno de esos cambios es permitir de forma nativa la salida en formato HTML de los informes
*
* El siguiente código muestra cómo obtener la salida HTML de un informe en VFP 9.0
*---------------------------------------------------------
LOCAL loListener AS OBJECT
loListener =.NULL.
*-- Asegurarse de que no existe el archivo HTML
ERASE nombre
*-- Crear una instancia de la clase Listener
SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER'
loListener = CREATEOBJECT('ReportListener')
DO (_reportoutput) WITH 5,loListener
*-- Configurar algunas propiedades
loListener.TargetFileName = nombre
*-- Ejecutar el informe
REPORT FORM nombre OBJECT loListener