LOCAL ARRAY laGroups[1]
LOCAL lcPageFooter, lcEndOfReport, liGroups, ldDateTime

CLOSE ALL
CLEAR ALL

USE dbfReport ORDER cdxDagDeel

*!*	FOR i = 1 TO 100
*!*		ldDate = ICASE(MOD(i, 3) = 1,{^2019/07/14}, MOD(i,3) = 2, {^2019/07/15}, {^2019/07/16})
*!*		lcDagDeel = ICASE(MOD(i,3) = 1, "A", MOD(i,3) = 2, "B", "C")
*!*		lcName = "X" + SYS(3)
*!*		lcName1 = "Y" + SYS(3)
*!*		lcVisitor = "Z" + SYS(3)
*!*		
*!*		INSERT INTO dbfReport VALUES (i, ldDate, lcDagDeel, lcName, lcName1, lcVisitor)
*!*	ENDFOR 

SELECT COUNT(cDagDeel) FROM dbfReport GROUP BY cDagDeel INTO ARRAY laGroups

liGroups = ALEN(laGroups)
ldDateTime = DATETIME()
lcPageFooter = IIF(MOD(INT(SECONDS()/60), 2) = 1, "Printed by Jane", "Printed by Jeff, Chris and Others")
lcEndOfReport = "Jeff Bowler" + CHR(13) + "123, South Bend" + CHR(13) + "US-12345 Chicago" + REPLICATE(CHR(13),3)

MODIFY REPORT Planningtest2

REPORT FORM Planningtest2 PREVIEW 

CLOSE ALL
CLEAR ALL
