Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   QReport Bandas (https://www.clubdelphi.com/foros/showthread.php?t=95859)

jahir1403 06-09-2022 01:56:45

QReport Bandas
 
1 Archivos Adjunto(s)
Hola! disculpen quisiera saber de que forma mediante código puedo pasar componentes de una banda de QReport pasarla a otra banda por ejemplo de la banda "Summary" pasarla a la banda "page Footer" la finalidad es que por ejemplo a una persona se le muestre de una forma y a otra persona se le muestre de otra forma su reporte.
De antemano muchas gracias!. :)

kuan-yiu 06-09-2022 11:41:31

Eso nunca es buena idea. Es mejor que definas dos bandas con las dos versiones que necesitas y en el momento de imprimir decidas cual de ellas activar.

jahir1403 10-09-2022 00:57:11

Gracias lo intenté, el detalle es que no podía desactivar una y activar la otra :( no me funcionaba el comando: visible,enable,hide,destroy jajaja intenté de todo

kuan-yiu 12-09-2022 11:07:34

No sé exactamente lo que estás haciendo, pero te pondré un ejemplo.
* Tengo una cabecera que debe cambiar según en que página del informe aparezca, así que por una parte dejé todos los elementos comunes y por otra los que a veces necesito ocultar.
La banda 'cabecera' (TQRBand, rbPageHeader) tiene una subbanda 'cabecera2' (TQRChildBAnd, con ParentBand=cabecera) que se muestra/oculta del siguiente modo:
Código Delphi [-]
procedure Tf_Informe.CabeceraBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   // Para que no muestre los títulos de columna cuando solo falta el resumen
   if not(QR_Informe.DataSet.Eof) then
         cabecera2.Enabled:= True
   else  cabecera2.Enabled:= False;
end;
Si necesitase distintas cabeceras (por ejemplo para páginas pares o impares) solo tendría que ampliar esa condición para decidir cual mostrar.


La franja horaria es GMT +2. Ahora son las 11:33:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi