topic-41130

Board index FiveWin para Harbour/xHarbour Añadir Lineas en Blanco clase report

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Añadir Lineas en Blanco clase report
Posted: Sun Nov 28, 2021 02:38 AM

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

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Añadir Lineas en Blanco clase report
Posted: Sun Nov 28, 2021 07:37 AM

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 (fw): Select all Collapse

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

Un abrazo amigo.

Jose.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Añadir Lineas en Blanco clase report
Posted: Sun Nov 28, 2021 01:07 PM

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

Code (fw): Select all Collapse

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Añadir Lineas en Blanco clase report
Posted: Sun Nov 28, 2021 02:34 PM

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.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion