FiveTech Software tech support forums

Posted: **Sat Apr 04, 2009 7: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: Select all

                      
  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.

Posted: **Sat Apr 04, 2009 5: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 ) ) }

Posted: **Sun Apr 05, 2009 3:51 pm**

Francisco, Gracias.

De tu codigo pude resolver mi problema, ya quedo.

FiveTech Software tech support forums

Cambiar los Encabezados de Columnas de TReport

Cambiar los Encabezados de Columnas de TReport

Re: Cambiar los Envabezados de Columnas de TReport

Re: Cambiar los Envabezados de Columnas de TReport