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()
      conti
      if foun()
         dele
      endif
   endif
   go xrec
endscan