Añadir Lineas en Blanco clase report

[JoseAlvarez]

Saludos fivewiners.

He generado un reporte con la clase report.

El informe esta listo, por ese lado nada que consultar,los ocupo por lo siguiente:

La clase report "corta" el informe al haberlo completado, me explico, si el reporte consta de 2 o 3 items
solmamente, en ese mismo punto se traza la linea final de reporte y los totales.

Mi cliente me solicita que no sea asi, el quiere que el diseño del informe ocupe toda la pagina
asi la informacion tenga solo una linea.

¿como insertar lineas en blanco dentro del cuerpo de DATA del reporte?

Para darme a entender mejor, dejo 2 imagenes, la primera es lo que hace la clase, la segunda
lo que el cliente quiere.

Gracias adelantadas por la ayuda..

[jvtecheto]

Estimado Jose.

Muy buen informe.

Para las lineas al final yo utilizo footer y me lo coloca al final, no he probado nunca varias lineas pero creo que saldra bien,
despues de la clausula HEADER añades algo asi.

Code: Select all  Expand view  RUN

FOOTER aEmpresa[ 1 ] + " - " + aEmpresa[ 2 ] + " (" + aEmpresa[ 11 ] + ")"  // lo que tu quieras.
 

Un abrazo amigo.

Jose.

[cmsoft]

José:
Podría forzar a que el reporte se vaya abajo y luego poner los finales de línea

Code: Select all  Expand view  RUN

ACTIVATE REPORT oRep WHILE !oQry:EOF() ON INIT CursorArrow() ;
         ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.BMP",.5,.5);
         ON END (oRep:nRow := oRep:nBottomRow - oRep:nStdLineHeight * 5) ; // Acá forzas a que se vaya a 5 lineas del final
         ON POSTEND Fin1(oRep) // Acá despues del final, pones las lineas
.....
STATIC FUNCTION Fin1(oRep)
oRep:NewLine()
oRep:Say(1,"Este presupuesto tiene validez por 8 dias")
oRep:NewLine()
oRep:Say(1,"Los equipos electricos tienen garantia por 15 dias")
RETURN nil
 

Para hacerlo bien, tendrias que controlar que cuando termina el reporte, oRep:nRow ya no sea mayor que el final de pagina menos 5
Pero es un inicio para seguir
Espero te sirva

[JoseAlvarez]

Saludos a todos.. Feliz domingo

Jose Vicente, si bien tu sugerencia hizo lo que yo quería, efectivamente sucedió lo que de último dijo César, el reporte se salió de margen, debido a las líneas adicionales que le tengo colocadas.

César, funcionó de 10, todo muy bien... excelente.

Gracias a ambos, muy agredecido. Con la ayuda de Uds., el reporte quedó tal como se quiere.

Un abrazo.