topic-15649

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

tReport
Posted: Tue May 19, 2009 11:14 PM

Ola.
Gostaria de Saber como faço para continuar desenhando a moldura até o final da pagina como na imagem utilizando a tReport

Obrigado..

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: tReport
Posted: Tue May 19, 2009 11:38 PM

Yo lo hago asi: (utilizo una dbf temporal)
1- Cuento los registros de la dbf.
2- Defino la cantidad maxima de lineas de la hoja (en tu caso 54) y agrego las que faltan a la dbf, para completar.

nMaxLineas:=54
nLin := (cAlias)->(Reccount()) // ó dbEval({|| nLin+=1})

if nLin < nMaxLineas
While nLin < nMaxLineas
DbAppend()
nLin+=1
Enddo
endif

       IF oReport:lCreated
          oReport:CellView()

Espero te sea de utilidad.
Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

ICO

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

Re: tReport
Posted: Wed May 20, 2009 02:34 PM

Francisco, obrigado por responder.

tai uma solução encontrada pelo Kleyber Deric, bem mas simples de fazer..

Code (fw): Select all Collapse

Private nLines:=0

Report oRpt .....

  oRpt:bStartLine := {|o| If( ++nLines > 54 .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) }
Activate REPORT oRpt ON STARTPAGE StartPage() ;
         ON POSTEND FimRelatorio()


//-------------------------------------------------------//
STATIC Function FimRelatorio()
   for n=nLines to 57
       oRpt:StartLine()
       oRpt:say(0,"______________________________________________________________________",1)
       oRpt:Endline()   
   next
   oRpt:say(0,"=======================================================================",1)    
Return (nil)

Espero que seja util p/ mas alguém..

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

FiveTech Support Forums

Continue the discussion