Page 1 of 1
Añadir lineas en REPORT
Posted: Wed Sep 11, 2013 5:36 pm
by 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?
Re: Añadir lineas en REPORT
Posted: Wed Sep 11, 2013 6:23 pm
by 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
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 7:41 am
by Manuel Aranda
Gracias, Marcelo. Voy a probarlo.
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 2:14 pm
by 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
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 3:23 pm
by 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.
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 5:02 pm
by 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.
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 5:18 pm
by Armando
Manuel:
Lo sospeche desde un principio (El chavo),
Mira esta función a ver que te parece.
Code: Select all | Expand
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
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 5:34 pm
by Manuel Aranda
Armando, gracias de nuevo.
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 5:46 pm
by RSalazarU
Manuel:
Yo tengo algo parecido al de Armando, que agregue a la clase tReport
Code: Select all | Expand
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
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
Re: Añadir lineas en REPORT
Posted: Thu Sep 12, 2013 6:44 pm
by Armando
Amigos:
Tal vez llamando a estos dos métodos ayude en algo, se describen por sí solos.
Saludos