home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / snip0693.zip / DELREC.PRG < prev    next >
Text File  |  1992-09-05  |  552b  |  26 lines
  1. function delrecord( oBrowse )
  2.  
  3.   local nCurRec := (cDbf)->( recno() )  // save current recno.
  4.  
  5.   /* FORCE COMPLETE STABILISATION */
  6.   forcestable( oBrowse )
  7.  
  8.   /* ASK FOR CONFIRM (My own function) */
  9.   if askarray( {"Yes","No "},"Remove ?","Yes" ) = 1 // 1="Yes"
  10.  
  11.     /* DELETE RECORD */
  12.     (cDbf)->( dbdelete() )
  13.  
  14.     /* JUMP TO NEXT RECORD */
  15.     (cDbf)->( dbgoto( nCurRec+1) )  // THIS IS THE TRICK!
  16.  
  17.     /* REFRESH AGAIN COMPLETE */
  18.     oBrowse:stable := .f.
  19.     oBrowse:refreshAll()
  20.  
  21.     return .t.
  22.  
  23.   endif
  24.  
  25. return .f.
  26.