en un xbrowse quiero cambiar la justificaciones de los footers, uso el siguiente codigo:
Code: Select all
oBrw:lFooter := .t.
oBrw:aCols[ 2 ]:bFooter := { || " "+Ltrim( Str( Len(::aData) ) ) }
oBrw:aCols[ 2 ]:oFooterFont := oFootFont
oBrw:aCols[ 3 ]:nFooterType := AGGR_TOTAL
oBrw:aCols[ 3 ]:bLClickFooter:= { |r,c,f,o| ::VerListines( r, c, f, o ) }
oBrw:aCols[ 4 ]:nFootStrAlign := AL_RIGHT
oBrw:aCols[ 4 ]:nFooterType := AGGR_TOTAL
oBrw:aCols[ 5 ]:nFooterType := AGGR_TOTAL
oBrw:aCols[ 6 ]:nFooterType := AGGR_TOTAL
oBrw:MakeTotals()
oBrw:SetFocus()
en todas las columnas con footer tipo AGGR_TOTAL , me la justifica a la izquierda por defecto y no me toma el cambio.
agradecido como siempre por las ayudas prestadas en este foro.