Cambiar los Encabezados de Columnas de TReport

[JavierVital]

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.

[FranciscoA]

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 ) ) }

[JavierVital]

Francisco, Gracias.

De tu codigo pude resolver mi problema, ya quedo.