FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bmp en TXBrowse con Array
Posts: 31
Joined: Fri Mar 17, 2006 02:04 PM
Bmp en TXBrowse con Array
Posted: Sun Sep 09, 2007 03:08 AM

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

Continue the discussion