Consulta de Queryarray

[Fernando Hernandez]

Buenas a todos
Tenia una consulta referente al queryarray, luego de la experiencia de hacer
un backoffice para un sistema de preventa en equipos moviles, actualmente me
encuentro desarrollando un generador de reportes para Dynamics GP.
La idea es que en una tabla tengo el nombre del reporte con los parametros y
el script asociado que luego lo ejecuto con un queryarray y despues lo
muestro en un arraybrowse. Pues bien la pregunta es como hago para poder
darle formato a las columnas, saber que tipo de campo es y como agregar los
totales al footer.
Adjunto parte de mi codigo, talvez alguien me pueda ayudar.
Saludos
Fernando
WITH OBJECT Application:oMainForm
:oTabReporte := TFrmGenReport():New(
Application:oMainForm:oFolder1 )
:oTabReporte:cText :=
asignsql(rtrim(::oSQlTable1:NombreCorto),oParam1,oParam2,oPa ram3,oParam4,oParam5,oParam6,.t.)
:oTabReporte:AdoData:=
AsignSQL(rtrim(::oSQlTable1:Script),oParam1,oParam2,oParam3, oParam4,oParam5,oParam6,.f.)
IF :oTabReporte:oAdo:Connect( Appdata:Op_Maestros )
:oTabReporte:aData :=
:oTabReporte:oAdo:QueryArray(:oTabReporte:AdoData,@aHeaders)
WITH OBJECT :oTabReporte:oArrayBrowse1
:Reset()
:SetArray(Application:oMainForm:oTabReporte:aData,aHeaders,. t.)
END WITH
// esta parte no me la reconoce
For nAt:=1 To Len(:oTabReporte:oArrayBrowse1:aCols)
:TabReporte:oArrayBrowse1:aCols[nAt]:AdjustWidth()
:TabReporte:oArrayBrowse1:aCols[nAt]:cHeader :=
:TabReporte:oArrayBrowse1:aCols[nAt]
Next
ELSE
ENDIF