Bug in TReport

Post Reply
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Bug in TReport

Post by 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

#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
Post Reply