set dele on
set orde to 0
scan

   xdate=date
   xvoucher=voucher
   xtype=type
   xrec=recno()
   loca for date=xdate and voucher=xvoucher and type=xtype and recno()#xrec
   if foun()
      dele
   endif
   go xrec 
endscan