thanks tore your reply,
in when i complaie these codes in v9beat. complete the proceesing in 10 sec, but in vfp9 complete the process in 5 min.
<>
xxz = Messagebox("Are you sure you want to do Auto Proceed for Persent Students", 36)
If xxz=6
Select 11
Set Order To category
Pack
Set Filter To
Set Filter To date=pdate and type=1
locate
SEEK "P"
If Found()
= Messagebox('Proceed Already Taken on '+Dtoc(date))
Return .T.
Else
Select 6
Set Order To CODE
Set Filter To admtd=1
* Goto Top
LOCATE
scan
*Do While !Eof()
grno = code
mscode = scode
mlcode = lcode
msec = sec
Select 11
Set Order To CODE
Seek grno
If Found()
Select 6
Skip
Else
Select 11
Append Blank
Replace code With grno
Replace date With pdate
Replace type With 1
Replace category With "P"
Replace scode With mscode
Replace lcode With mlcode
Replace sec With msec
Select 6
Skip
Endif
endscan
Endif
Endif
Select 11
Set Order To CODE
Pack
Set Filter To
Set Filter To date=pdate and type=1
Goto Bottom
With thisform
.code.value = code
.date.value = date
Select 6
Set Filter To admtd=1
Set Order To code
Locate For code=thisform.code.value
.descr.value = descr
.sec.value = sec
.lcode.value = lcode
.scode.value = scode
Select 11
.ccode.value = category
Select 10
Set Order To code
Locate For code=thisform.ccode.value
.cdescr.value = descr
Select 11
.code.enabled = .F.
.ccode.enabled = .F.
.cmds.ctop.enabled = .T.
.cmds.clas.enabled = .T.
.cmds.cnex.enabled = .T.
.cmds.cpre.enabled = .T.
.cmds.cadd.enabled = .T.
.cmds.csav.enabled = .T.
.cmds.cedi.enabled = .T.
.cmds.crev.enabled = .T.
.cmds.cdel.enabled = .T.
.cmds.cexi.enabled = .T.
.help1.enabled = .F.
.help2.enabled = .F.
.auto.enabled = .T.
Endwith

thanks