Report Listener

[Esteban H]

Hola Grupo.

 

Alguien ha usado la clase ReporListener?

 

Tengo algunas dudas.

 

Para usar esta clase la forma de llamarla es:

 

LParameters tcNombreInforme

Local loInforme

 

  SET REPORTBEHAVIOR 80

  ox = CreateOBJECT('_ReportListener')

  ox.ListenerType = 1 && Preview

  KeyBoard "{CTRL+F10}"    && Maximiza la ventana Preview

  REPORT FORM &tcNombreInforme OBJECT ox &&preview

  RELEASE ox

  SET REPORTBEHAVIOR 90 

Return

 

O esta forma, definiendo otra Clase MyReportListeners q instancia la clase ReportListener:

 

LParameters tcNombreInforme

Local loInforme

 

  ox=NEWOBJECT('MyReportListener_Directives','MyReportListeners')

  ox.ListenerType = 1 && Preview

  KeyBoard "{CTRL+F10}"    && Maximiza la ventana Preview

  REPORT FORM &tcNombreInforme OBJECT ox &&preview

  RELEASE ox

Return

 

Luego, mi otra pregunta es, se lleva bien esta clase con FoxyPreviewer, es posible usarlas en conjunto?

Pregunto esto, xq deseo q algunos reportes tengan color de acuerdo a valores y p hacerlo debo usar ReportListener, pero también quiero q se use dentro de FoxyPreviewer.

Cuento con la información q antes estaba en PortalFox llamada El Generador de informes de VFP 9.0 en acción

Pero me ha sido difícil usar esta clase…

 

 

Saludos.

 

Esteban.

 

[Esteban H]

Me respondo sólo.

Todo está en el documento “El Generador de Informes de VP9 en Acción”, mi error fue creer q era simple usar ReportListener, pero no es así, primero hay q armar la clase MyReportListeners y dentro de la misma hay q definir los métodos de la forma q explica el documento y luego se pueden lograr cosas muy interesantes como rotar texto, poner en rojo valores negativos,  generar gráfico de barras, etc.

 

Saludos.

 

Esteban.