tReport

[ICO]

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




Obrigado..

[FranciscoA]

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

[ICO]

Francisco, obrigado por responder.

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

Code: Select all  Expand view

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..