Imprimir solo 20 lineas

[RuFerSo]

Estimados: Tengo un BD indexada por un campo X, y en el reporte deseo que solo me imprima los primeros 20 registros.

Con tPRINTER no tengo problemas, pero con tREPORT no le doy en la tecla.

Saludos y Gracias.
Ruben Fernandez

[karinha]

Holá,

Haga un filtro con el SET FILTER ó con ORDSCOPE() -> Más rápido.


Saludos.

[jbrita]

Amigo, como tienes el codigo

Saludos

[RuFerSo]

Gracias por contestar a ambos.

JBRITA: Con un filtro no creo que funcione, son solo los primeros 20 registros de una BD que puede tener 30000 registros.

JOAO: No tengo código aún, lo tengo hecho con tPrinter y no hay problemas, pero me gusta mas como queda con REPORT.
Hare algunas pruebas y les cuento.

Saludos y Gracias

Ruben Fernandez

[FranciscoA]

Hola RuFerSo. Prueba así:

Code: Select all

nLineas:=1
.......
        oReport:bSkip := {|| oList:Skip(),nLineas+=1 }

   ACTIVATE REPORT oReport WHILE nLineas<=20 .and. !oList:Eof()

Saludos.

[RuFerSo]

Gracias FranciscoA: respondo tarde porque recien llegue del trabajo.

Muchas gracias

Saludos
Ruben Fernandez