
Opcion de Salida del reporte a HTML
Publicado por Ernesto Hernandez (4623 intervenciones) el 11/10/2007 05:43:58
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
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
Valora esta pregunta


0