Bug in TReport

[Enrico Maria Giordano]

The following sample

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Report.ch"


FUNCTION MAIN()

      REP01( "1" )
      REP01( "2" )

    RETURN NIL


FUNCTION REP01( cNum )

    LOCAL oRpt

    USE TEST

    REPORT oRpt TITLE  "TEST" + cNum PREVIEW

    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

shows only the first preview and then terminate leaving an error.log containing

Error description: Error BASE/1132 Bound error: array access

Stack Calls
===========
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:BUILDWINDOW(448)
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:NEW(125)
Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW(1462)
Called from: .\source\classes\REPORT.PRG => (b)TREPORT:NEW(180)
Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE(873)
Called from: REP2.prg => REP01(29)
Called from: REP2.prg => MAIN(8)

EMG

[Enrico Maria Giordano]

Any news?

EMG

[Antonio Linares]

Enrico,

It is not exactly a bug. It is the result of a wrong use of FiveWin, I explain why:

FiveWin uses the first created window as the main window of the application, so when the main window ends, then it means that the application ends too. This concept could be discussed, but it is intended mainly to avoid never ending applications.

If you modify your code this way, then it will work fine:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Report.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd
   
   ACTIVATE WINDOW oWnd ON INIT Reports()
   
return nil  

FUNCTION Reports()

      REP01( "1" )
      REP01( "2" )
     
RETURN NIL

...
 

[Enrico Maria Giordano]

Great, it works, thank you!

EMG