Bug in TReport

[Enrico Maria Giordano]

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):

Code: Select all | Expand

#include "FiveWin.ch"#include "Report.ch"FUNCTION MAIN()    LOCAL oWnd    DEFINE WINDOW oWnd    ACTIVATE WINDOW oWnd;             ON INIT ( REPORTS(), oWnd:End() )    RETURN NILSTATIC FUNCTION REPORTS()    LOCAL oPrn    PRINT oPrn PREVIEW        REP01( oPrn, "1" )        REP01( oPrn, "2" )    ENDPRINT    RETURN NILSTATIC 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

EMG