FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TReport Varios Titulos
Posts: 105
Joined: Thu Feb 26, 2009 04:08 PM
TReport Varios Titulos
Posted: Thu Dec 24, 2009 02:38 AM

Amigos, parece que ya pusieron algo de esto pero no lo encuentro

En un Reporte , tener varios Titulos pero un uno de esos titulos ponerlos tanto a la Izq. y otro a la Derecha
En la misma Linea
Se podra ?

Saludos

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: TReport Varios Titulos
Posted: Thu Dec 24, 2009 03:38 PM
Javier:

Por su pollo ! que se puede, aqui tienes la función.

Code (fw): Select all Collapse
    IF oReporte:lCreated
        oReporte:oTitle:aPad[1] := RPT_LEFT
        oReporte:oTitle:aPad[2] := RPT_RIGHT
    ENDIF


    ACTIVATE REPORT oReporte;  
        ON STARTPAGE (Alinea(oReporte,1,2));  // 1 y 2 son el número del título
        ON CHANGE PrtDet(oReporte);
        ON END (    oReporte:ENDLINE(),Totales(oReporte),MessageBeep())



/*
* --------------------------------------------------------------------------*
* --------------------------------------------------------------------------*
*/
FUNCTION Alinea(oReporte,Izq,Der)
    oReporte:oTitle:aRow[Izq]:=oReporte:oTitle:aRow[Der]
RETURN (NIL)


En este ejemplo estoy alineando los títulos 1 y 2 pero puedes facilmente ajustar el código
para alinear los Headers. Me había olvidado de ajustar los títulos, uno a la izquierda y otro
a la derecha.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion