CLOSE ALL
SELECT A
USE MTHDES
GO MTO
FL= 'S' + MTH_NO+SUBSTR(COCD,1,3)+ TDYEAR+ '.DBF'
USE '&FL'
SELECT B
USE PRIZES
SCAN
REPLACE b->employe_id WITH a->emp_no
endscan
*///////////////////////////////////////////////////////////////
scan
FOR mCounter= 1 TO 4
nFIELD=Int(Rand() * 34+4)
lcField = nField
minnum = 4
maxnum = 34
*//////////////////////////////////////////////////RANDOM CONTROLS////////////////////////////////////////////
if lcfield>=maxnum
lcfield=maxnum
endif
*////////////////////////////////////////////////RANDOM CONTROL OVER////////////////////////////////////////
WAIT WINDOW lcField
REPLACE (field(lcfield)) WITH 'A'
ENDFOR
ENDSCAN
CLOSE ALL
USE PRIZES
BROWSE FONT 'ARIAL BOLD',11
REPLACE ALL D4 WITH ' ', D5 WITH ' ', D6 WITH ' ', D7 WITH ' ', D8 WITH ' ', D9 WITH ' ', D10 WITH ' ', D11 WITH ' ', D12 WITH ' ', D13 WITH ' ', D14 WITH ' ', D15 WITH ' ', D16 WITH ' ', D17 WITH ' ', D18 WITH ' ', D19 WITH ' ', D20 WITH ' ', D21 WITH ' ', D22 WITH ' ', D23 WITH ' ', D24 WITH ' ', D25 WITH ' ', D26 WITH ' ', D27 WITH ' ', D28 WITH ' ', D29 WITH ' ', D30 WITH ' ', D31 WITH ' ' , D32 WITH ' ' , D33 WITH ' ' , D34 WITH ' '