FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar los Encabezados de Columnas de TReport
Posts: 105
Joined: Thu Feb 26, 2009 04:08 PM

Cambiar los Encabezados de Columnas de TReport

Posted: Sat Apr 04, 2009 07:50 AM
Que tal, Saludos a Todos.

Quisiera saber como poder hacerle para poder cambiar los titulos de las columnas de un reporte, dependiendo de una variable

tengo este codigo pero no me funciona
Me sale el mismo encabezado para todas las columnas

Code (fw): Select all Collapse
                      
  FOR I := 1 TO Len(cVend)
         cVendedor := cVend[I]
        Column Title cVendedor                  Data Space(5)
  NEXT


y si le antepongo un & me marca un error &cVendedor

Si alguien pudiera echarme la mano

Saludos.
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambiar los Envabezados de Columnas de TReport

Posted: Sat Apr 04, 2009 05:07 PM

Javier, talvez este codigo parcial te pueda servir de guía.
Saludos.

//Columnas de las cuentas
for n := nColIniCtas to (nColIniCtas+nColsCtas )-1
oRpt:AddColumn( TrColumn():New( { TituCol( cAlias, n, aCuentas ) },,;
{ DatoCol( cAlias, n, aCuentas ) },12,;
{ "@Z( 9,999,999,999.99"},,,,,,.t.,, oRpt ) )
next

ENDREPORT

ACTIVATE REPORT oRpt
SysRefresh()
return nil

//----------------------------------------------------------------------------//
static function TituCol( cAlias, n, aCuentas )
RETURN { || if( substr((cAlias)->(FieldName(n)),1,3)="CTA", aCuentas[n]+" ",;
(cAlias)->(FieldName(n)) ) }

//----------------------------------------------------------------------------//
static function DatoCol( cAlias, n, aCuentas )
RETURN { || ( cAlias )->( FieldGet( n ) ) }

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 105
Joined: Thu Feb 26, 2009 04:08 PM

Re: Cambiar los Envabezados de Columnas de TReport

Posted: Sun Apr 05, 2009 03:51 PM

Francisco, Gracias.

De tu codigo pude resolver mi problema, ya quedo.

Continue the discussion