topic-24402

RuFerSo

Posts: 55

Joined: Mon Feb 20, 2012 02:56 PM

Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 03:43 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 04:06 PM

Holá,

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

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 04:55 PM

Amigo, como tienes el codigo

Saludos

RuFerSo

Posts: 55

Joined: Mon Feb 20, 2012 02:56 PM

Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 05:01 PM

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

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Imprimir solo 20 lineas
Posted: Thu Jul 05, 2012 05:58 PM

Hola RuFerSo. Prueba así:

Code (fw): Select all Collapse

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

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

RuFerSo

Posts: 55

Joined: Mon Feb 20, 2012 02:56 PM

Re: Imprimir solo 20 lineas
Posted: Fri Jul 06, 2012 04:02 AM

Gracias FranciscoA: respondo tarde porque recien llegue del trabajo.

Muchas gracias

Saludos
Ruben Fernandez

FiveTech Support Forums

Continue the discussion