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 XML de los informes empleando la nueva clase REPORTLISTENER *---------------------------------------------------------
* Método:
* SALIDAXML.PRG
* Programador:
* Ana María Bisbé York
* Fecha de Terminación:
* 11/02/05 12:02:35 PM
* 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 XML de los informes
*
* El siguiente código muestra cómo obtener la salida XML de un informe en VFP 9.0
*---------------------------------------------------------
LOCAL loListener AS OBJECT
loListener =.NULL.
*-- Asegurarse de que no existe el archivo XML
ERASE nombre
*-- Crear una instancia de la clase Listener
SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER'
loListener = CREATEOBJECT('ReportListener')
DO (_reportoutput) WITH 4,loListener
*-- Configurar algunas propiedades
loListener.TargetFileName = nombre
*-- Ejecutar el informe
REPORT FORM nombre OBJECT loListener