Antonio,
¿Y cómo puedo saber cuándo el informe se está mostrando?.
Por ejemplo, en samples\report.prg
- Code: Select all Expand view RUN
// Testing FiveWin built-in report engine and print preview
#include "FiveWin.ch"
#include "Report.ch"
static oWnd
function Main()
local oBar, oCursorHand
DEFINE WINDOW oWnd ;
TITLE "Testing FiveWin Report-Engine and Print-Preview" ;
MENU BuildMenu()
DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd
DEFINE BUTTON OF oBar FLAT TOOLTIP "Generate report" ;
ACTION DoReport() RESOURCE "Report"
DEFINE BUTTON OF oBar FLAT GROUP TOOLTIP "Exit" ;
ACTION oWnd:End() RESOURCE "Exit"
DEFINE CURSOR oCursorHand HAND
AEval( oBar:aControls, { | o | o:oCursor := oCursorHand } )
DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ;
NOINSET DATE CLOCK KEYBOARD
ACTIVATE WINDOW oWnd ;
VALID MsgYesNo( "Want to exit ?" )
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Generate Report" ACTION DoReport() ;
MESSAGE "Open customers database and generate a report"
MENUITEM "&Exit" ACTION oWnd:End() ;
MESSAGE "Terminate the application and exit"
ENDMENU
return oMenu
function DoReport()
local oRpt
USE Customer
REPORT oRpt PREVIEW
COLUMN TITLE "First" DATA Customer->First
COLUMN TITLE "Last" DATA Customer->Last
COLUMN TITLE "State" DATA Customer->State
END REPORT
ACTIVATE REPORT oRpt
USE
return nil
En este sample, si cierro la WndMain con el Preview abierto casca.
¿Tu cambio arreglaría esto?.
Gracias.