Añadir lineas en REPORT

[Manuel Aranda]

Necesito añadir varias lineas al final de un report con oReport:bPostEnd . La particularidad es que tienen que ir todas juntas y si no caben no escribir ninguna y pasar a escribirlas todas en la página siguiente. ¿Podeis ayudarme?

[Marcelo Via Giglio]

Manuel,

revisando el código de la clase report, hay este método que te orienta como saber las líneas restante de impresión

METHOD NeedNewPage() INLINE ( ::nRow >= ::nBottomRow )

con esa información puedes utilizar otro método NewLine para añadir líneas manualmente

espero sea de ayuda

saludos

Marcelo

[Manuel Aranda]

Gracias, Marcelo. Voy a probarlo.

[Armando]

Manuel y amigos:

Voy a meter un poquito de más rollo en esto, Manuel, cual es la necesidad de imprimir las líneas en
otra página si es que no caben?.

Lo pregunto porque pienso que si pretendes imprimirlas en la misma página y no caben te tira un error, cierto?

El error es que no se puede borrar el meta file, cierto?

Saludos

[FranciscoA]

Hola Manuel.
Si tienes definidas que cantidad de lineas vas a agregar en el bPstEnd, entonces creo que este codigo te puede servir:
//--------------------------------------------------------------//
Function ResumenCaja(oReport,nTContado,nTRcaja,nEfectivo,nVauchers)
local nLinAdic:=5

oReport:lGrid := .f.

CkNewPage(oReport,nLinAdic) //chequear si necesita nueva pagina
oReport:NewLine()

oReport:Say( 1, "RESUMEN DE CAJA:")
oReport:Say( 2, "FACT CONTADO: "+Transform(nTContado,"9,999,999.99") )
oReport:Say( 3, "RECIBOS CAJA: "+Transform(nTRCaja,"9,999,999.99") )
oReport:Say( 4, "VAUCHERS: "+Transform(nVauchers,"9,999,999.99") )
oReport:Say( 5, "EFECTIVO: "+Transform(nEfectivo,"9,999,999.99") )

return nil
//------------------------------
Function CkNewPage(oReport,nLinAdic)
if (oReport:nRow() + (oReport:nStdLineHeight()*nLinAdic)) >= oReport:nBottomRow()
oReport:EndPage()
oReport:StartPage()
endif
return nil

Saludos.

[Manuel Aranda]

Francisco, muchas gracias por el código. Con algunos ajustes y pruebas he logrado lo que pretendía.
Armando, efectivamente, es cierto lo que comentas del error al eliminar el metafile. Usando el código de Francisco lo he podido ajustar para que no se produzca ese error. Tengo que añadir 12 lineas en bloque y he tenido que poner nLinAdic a 13 para que no se produzca el error. No se si es una solución muy ortodoxa pero, de momento, funciona.

[Armando]

Manuel:

Lo sospeche desde un principio (El chavo),

Mira esta función a ver que te parece.

Code: Select all  Expand view

FUNCTION OverFlow(oReporte)
    IF (oReporte:nRow + (oReporte:nStdLineHeight * 2)) >= oReporte:nBottomRow
        oReporte:EndPage()
        oReporte:StartPage()
    ENDIF
RETURN NIL
 

Después de imprimir, o antes si así lo prefieres, cada una de las líneas adicionales mando llamar
a esta función y así acabe con el famoso error.

Saludos

[Manuel Aranda]

Armando, gracias de nuevo.

[RSalazarU]

Manuel:

Yo tengo algo parecido al de Armando, que agregue a la clase tReport

Code: Select all  Expand view

METHOD NewPageIfNeed( nRow )  INLINE  if(nRow >= ::nBottomRow, ::EndPage(), NIL)
 

por cierto, yo usaba tb EndPage() y StartPage() pero ::EndPage() hace eso y algo mas...

Y como dice armando ".. la llama Después de imprimir, o antes si así lo prefieres, ..."

Ejemplo:
En este caso yo tengo que imprimir 6 lineas de distinto tamaño y le doy un espacio mas extra.

Code: Select all  Expand view

oRpt:NewPageIfNeed(oRpt:nStdLineHeight*2.00 + ;
                   oRpt:nStdLineHeight*1.05 + ;
                   oRpt:nStdLineHeight*1.15 + ;
                   oRpt:nStdLineHeight*1.15 + ;
                   oRpt:nStdLineHeight*1.30 + ;
                   oRpt:nStdLineHeight*1.05 + ;
                   oRpt:nStdLineHeight)

 

Seria ideal incorporar este metodo a la clase tReport


Atentamente,

Rolando
Cochabamba - Bolivia
FWH 1109 - xHarbour 1.1.0 (SimpLex) - BCC58

[Armando]

Amigos:

Tal vez llamando a estos dos métodos ayude en algo, se describen por sí solos.

Code: Select all  Expand view

        oReporte:EndLine()
        oReporte:StartLine()
 

Saludos