Xailer & OZ Software

Consulta ya realizada alla por el 26-11-2008 por otro integrante del foro,
pregunto lo mismo ya que me pasa algo similar.
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
MUCHAS GRACIAS

Carlos,
Utilice la propiedad TBrwColumn:cPicture o el evento TBrwColum:OnGetData.
Saludos
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Carlos Ortiz" <cortizassist@hotmail.com> escribió en el mensaje
news:49642c81$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Consulta ya realizada alla por el 26-11-2008 por otro integrante del foro,
> pregunto lo mismo ya que me pasa algo similar.
>
> 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
>
>
> MUCHAS GRACIAS
>
>