FoxPro/Visual FoxPro - ACELERAR UNA TAREA QUE TARDA MUCHO !!!!!

A ver si alguien me puede ayudar.
Tengo una ventana donde introduzco una cantidad de números como 400 ó 500 los meto en un cursor y hago lo siguiente

sele crsMostrador
scan
cRef1=alltrim(crsMostrador.ref)
cNum1=alltrim(crsMostrador.numserie)
cAlm1=alltrim(crsMostrador.tipo)

&& Aquí abro otra tabla para hacer la busqueda
&& Y si hay 1 ó más números en esa tabla lo borro del cursor.
abrir('escaner')
sele count (*) as numero from escaner where alltrim(escaner.ref) ==cRef1 and alltrim(escaner.nserie)==cNum1 and escaner.alm=cAlm1 and escaner.numsal=0 into cursor crsRegs
If crsRegs.numero>=1
sele crsMostrador
delete in crsMostrador
endif
endscan

todo esto tarda mucho sobre todo lo del select si quito el select me va muy rapido pero tengo que ir comprobando cada número del cursor si existe ya en la tabla 'escaner' o no existe.

Alguien me puede decir como acelerar este proceso.

Gracias.

Mejor haz una vista con un INNER JOIN, los registros que te queden los borras y listo.
con el INNER sacas todas las coincidencias, el INNER es una clausula del los SELECTs.

OJO, haz esto primero con un backup

mira lo que tienes que hacer es indexar la tabla por los valores que buscas.....veras que rapido funciona el select.
yo uso tablas de casi 400,000 registros y es rapidisimo...

checalo....ok
mandame un mail, si necesitas mas ayuda.

saludos desde veracruz, ver. mexico