FiveTech Support Forums

#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

#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

...