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 view

#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

EMG