SELECT 38
ZAP
alias38 = ALIAS()

SELECT 6
mcode=lcode
msec=sec
alias6 = ALIAS()

INSERT INTO (alias38) (scode, lcode, sec) SELECT DISTINCT scode, lcode, sec FROM (alias6) group by scode,lcode,sec WHERE admtd=1

SELECT 6
*COUNT TO code FOR scode AND lcode AND sec AND admtd=1
 
sele 38
replace nostudent WITH tcode
GO top
SET ORDER TO sls2
set filter to scode>=thisform.shiftfm.value and scode<=thisform.shiftto.value.and. sec>=thisform.secfm.value and sec<=thisform.secto.value

COUNT TO c


if c=0
	=messageb('Data Not Found')
else
	go top
	if thisform.type.value=1
		      * DO RunReport IN khalid.app WITH 'rt\lstlvl1' 

		repo form rt\lstlvl3 preview
		DO FILTER
	endif
	if thisform.type.value=2
		 * DO RunReport IN khalid.app WITH 'rt\lstlvl2',[preview]
		repo form rt\lstlvl2 preview
		DO FILTER
	endif
endif