Page 1 of 1
Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 3:43 pm
by 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
Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 4:06 pm
by karinha
Holá,
Haga un filtro con el SET FILTER ó con ORDSCOPE() -> Más rápido.
Saludos.
Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 4:55 pm
by jbrita
Amigo, como tienes el codigo
Saludos
Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 5:01 pm
by 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
Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 5:58 pm
by 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.
Re: Imprimir solo 20 lineas
Posted: Fri Jul 06, 2012 4:02 am
by RuFerSo
Gracias FranciscoA: respondo tarde porque recien llegue del trabajo.
Muchas gracias
Saludos
Ruben Fernandez