Metin

Wouldn't it be best to set the order to the index Tariq had?

Then (assuming always 3 of each or just 1), something like:

SCAN
  llFound       = .F.
  lnRecNo       = RECNO()
  xdate         = date
  xvoucher      = voucher
  xtype         = type
  xSeekKey      = DTOC( date) + str( voucher) + Type  && NOTE not ALLTRIM( Type) when used in key.
  Do while llFound
    If INDEXSEEK( xSeekKey, .T., "ThisTable", "TariqsIndex")
        Delete
        llFound = .T.
        Goto lnRecNo                                  && Don't even think this necessary
    Endif
  EndDO
EndSCAN

>Okey than,
>
>

>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
>