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 >