Page 1 of 1

Bmp en TXBrowse con Array

Posted: Sun Sep 09, 2007 3:08 am
by un_jeepero
Estimados,

Muestro un Array con la TXBrowse y necesito poner un Bmp cuando un registro logico tiene .T. o .F. si utilizo la TXBrowse con datos de la DBF directamente funciona bien, pero no logro hacer lo mismo cuando la utilizo con informaciĆ³n desde un Array..

alguien me puede echar una mano. Aqui les dijo un compacto de ambos usos:

Directo de la DBF, Funciona correctamente.

::oBrw := TXBrowse():New( ::oWnd )
::oBrw:cAlias := DBF_GIRBAN:cAlias
::oCol := Array( 01 )
::oCol[01] := ::oBrw:AddCol()
::oCol[01]:cHeader := "Conciliado"
::oCol[01]:AddResource( "CHECK_SI" )
::oCol[01]:AddResource( "CHECK_NO" )
::oCol[01]:bBmpData := { || IF( DBF_GIRBAN:ESTGIR == .T. , 1, 2) }
::oCol[01]:BStrData := { || "" }
::oCol[01]:nWidth := 60
::oBrw:CreateFromCode()
....
....
Desde un Array, NO muestra el BMP

WITH OBJECT ::oBrw
:SetArray( AR_DATOS, .T. )
WITH OBJECT :aCols[ ESTADO ]
:cHeader := "Conciliado"
:AddResource( "CHECK_SI" )
:AddResource( "CHECK_NO" )
:bBmpData := { || IF(Len(AR_DATOS) >0, (IF ( AR_DATOS[::oBrw:nArrayAt][ESTGIR] == .T. , 1, 2) ), NIL) }
:bStrData := { || ""}
:nWidth := 40
END
END
...
...
Muchas gracias

salu2

Mauro