Progress - leer con FIND.... NEXT

saludos a todos los progresianos..
en alguna ocasión vi una rutina de lectura con find y después un repeat y dentro de esta un find next . ya hice la rutina pero me lee todo el archivo y no solamente las condicionantes del primer find. anexo codigo .

find first r-semanas no-lock where r-semanas.cliente = 705
and r-semanas.semana = 38
and r-semanas.a#o = 2011 use-index llave2 no-error .

repeat:
disp r-semanas.Cliente
r-semanas.a#o
r-semanas.semana
r-semanas.cve-tienda
r-semanas.descripcion
r-semanas.id-color
r-semanas.No-primer-elemento
r-semanas.no-sec-depto
r-semanas.piezas-pedidas
r-semanas.piezas-recibidas
r-semanas.tama#o
r-semanas.upc
with width 300.
pause 0.
find next r-semanas no-lock no-error .
end.
podria ayudarme para que solamente lea las condiciones del find. esto es para realizar otro tipo de lectura al archivo y yo creo que es mas rapido que con for each... muchas gracias

Buenas.

En primer lugar para asegurarte que el FIND NEXT se ejecuta con correccion deberias indicarte el indice y ademas si el indice se correpsonde con las condiciones, que es l que en buena logica imagino, deberias repetir las condiciones en el propio FIND NEXT. Ademas de esto deberias indicar cuando debe terminer el REPEAT para hacer mas eficaz el bucle.

Yo lo pantearia asi :

find first r-semanas where r-semanas.cliente = 705 and r-semanas.semana = 38
and r-semanas.a#o = 2011 use-index llave2 no-lock no-error .

repeat:
if not available rsemanas then LEAVE.
if available r-semanas then do:
disp r-semanas.Cliente
r-semanas.a#o
r-semanas.semana
r-semanas.cve-tienda
r-semanas.descripcion
r-semanas.id-color
r-semanas.No-primer-elemento
r-semanas.no-sec-depto
r-semanas.piezas-pedidas
r-semanas.piezas-recibidas
r-semanas.tama#o
r-semanas.upc
with width 300.
pause 0.
end.
find next r-semanas where r-semanas.cliente = 705 and r-semanas.semana = 38
and r-semanas.a#o = 2011 use-index llave2 no-lock no-error .
end.

Espero que te sea util.

Mira el problema es que en el segundo Find debes poner la misma condicionante que en el primero, lo unico que cambiara es el First por el Next.