Local ord,onerr ord=Order() onerr=On("erro") Nodele=.F. On Error Nodele=.T. Set Order To Delete If Empty(m.onerr) On Error Else On Error &onerr Endif If Nodele Append Blank Else Set Deleted Off If Seek(.T.) Recall Blank Else Append Blank Endif Endif Set Order To &ord Set Deleted OnYou have to use flock() before use that function because of record get violations.