Bug in TReport
Posted: Sun Aug 27, 2017 8:19 am
After closing the preview the program crashes with an error and it shows only the first report (the two reports should be in the same preview window):
EMG
Code: Select all
#include "FiveWin.ch"
#include "Report.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd;
ON INIT ( REPORTS(), oWnd:End() )
RETURN NIL
STATIC FUNCTION REPORTS()
LOCAL oPrn
PRINT oPrn PREVIEW
REP01( oPrn, "1" )
REP01( oPrn, "2" )
ENDPRINT
RETURN NIL
STATIC FUNCTION REP01( oPrn, cNum )
LOCAL oRpt
USE TEST
REPORT oRpt TITLE "TEST" + cNum TO DEVICE oPrn
COLUMN TITLE "St" DATA Test->State
COLUMN TITLE "First Name" DATA Test->First
COLUMN TITLE " Salary" DATA Test->Salary
END REPORT
oRpt:CellView()
ACTIVATE REPORT oRpt
CLOSE TEST
RETURN NIL