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