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?
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
Gracias, Marcelo. Voy a probarlo.
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
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.
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.
FUNCTION OverFlow(oReporte)
IF (oReporte:nRow + (oReporte:nStdLineHeight * 2)) >= oReporte:nBottomRow
oReporte:EndPage()
oReporte:StartPage()
ENDIF
RETURN NILArmando, gracias de nuevo.
METHOD NewPageIfNeed( nRow ) INLINE if(nRow >= ::nBottomRow, ::EndPage(), NIL)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) oReporte:EndLine()
oReporte:StartLine()