una de xBrowse SOLUCIONADO!!!

[Ricardo Ramirez E.]

para campos lógicos estoy intentanto colocar un .BMP en vez del valor del campo

defino la primera columna de xBrowse asi :

Code: Select all  Expand view

ADD  COLUMN  oCol TO oBrwCTA ;
        AT 1 ;
        DATA {|| ::oCta:lFactura} ;
        TITLE "Factura?" SIZE 70

luego hago asi... antes de activar el dialogo..

Code: Select all  Expand view

oBrwCTA:aCols[1]:SetCheck( { "ON", "OFF" } )

Al ejecutar la Txbrowse me dice "Method Valid only for logical values"
como si el campo no fuese lógico...
revisé el ejemlo testxbr3.prg mas no doy con el problema.. no es mi dia
Alguna luz?

[EderXc]

Code: Select all  Expand view

oCol2:=obrw2:addcol()
ocol2:AddResource("BMP_BAIXA")
ocol2:AddResource("BMP_ATIVO")
oCol2:bBmpData:={||iif(E->Baixa="BAIXA",1,2)}
oCol2:cHeader:="Controle"+ CRLF + "baixa/ativo"

aqui estas ..

[Daniel Garcia-Gil]

coloca el codigo completo, para ver como creas el xbrowse y poder determinar que problema no esta en otro lado

[Ricardo Ramirez E.]

Set Portugues ON
Eder, obrigado serviu o exemplo, mais acho que é possível também, usando o Method SetCheck
Set Portugues OFF

Daniel.
El xBrowse esta definido asi :

Code: Select all  Expand view

oBrwCTA := TXBrowse():New( oDlg )
   oBrwCTA:CreateFromResource( 101 )
   oBrwCTA:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrwCTA:bClrSelFocus := {|| { CLR_WHITE, CLR_BLUE } }
   oBrwCTA:cAlias := (::oCta:cAlias)
   oBrw:l2007 := .T.
   oBrwCta:SetoDbf( ::oCta )
   oBrwCta:bChange:={|| ::oCta:Load}

    ADD  COLUMN  oCol TO oBrwCTA ;
        AT 1 ;
        DATA {|| ""} ;
        TITLE "Factura" SIZE 70

donde ::oCta es un objeto TDATABASE

[Daniel Garcia-Gil]

Daniel.
El xBrowse esta definido asi :

Code: Select all  Expand view

oBrwCTA := TXBrowse():New( oDlg )
   oBrwCTA:CreateFromResource( 101 )
   oBrwCTA:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrwCTA:bClrSelFocus := {|| { CLR_WHITE, CLR_BLUE } }
   oBrwCTA:cAlias := (::oCta:cAlias)
   oBrw:l2007 := .T.
   oBrwCta:SetoDbf( ::oCta )
   oBrwCta:bChange:={|| ::oCta:Load}

    ADD  COLUMN  oCol TO oBrwCTA ;
        AT 1 ;
        DATA {|| ""} ;
        TITLE "Factura" SIZE 70

donde ::oCta es un objeto TDATABASE

me imagino que debria ser asi...

Code: Select all  Expand view

oBrwCta:bChange:={|| ::oCta:Load()} //==>los parentesis

ADD  COLUMN  oCol TO oBrwCTA ;
        AT 1 ;
        DATA {|| ::oCta:lFactura} ;
        TITLE "Factura?" SIZE 70 editable;
        ON EDIT {|o,x,n| ::oCta:lFactura := x }

oBrwCTA:aCols[1]:SetCheck( { "ON", "OFF" } )



[/code]

[Ricardo Ramirez E.]

Daniel... no necesito editar el campo logico
solo mostrar un BMP segun sea el caso....

pensé que colocando

oBrwCTA:aCols[1]:SetCheck( { "ON", "OFF" } )

era suficiente

[Daniel Garcia-Gil]

Daniel... no necesito editar el campo logico
solo mostrar un BMP segun sea el caso....

pensé que colocando

oBrwCTA:aCols[1]:SetCheck( { "ON", "OFF" } )

era suficiente

si debe ser suficiente...
disculpa la pregunta, pero debo hacerla de todas formas, estas seguro que lFactura es un campo loogico, ya revisaste eso? muchas veces se nos escapa la liebre por donde menos pensamos

[Ricardo Ramirez E.]

Daniel...
gracias.. x responder; si el campo es de tipo lógico y los bmp's tambien existen en el archivo de tipo .RES. Revisando y depurando el Method SetCheck me di con la sorpresa.. que
para determinar el tipo de valor de la data de la columna hay esto

Code: Select all  Expand view

LogiVal := ( ValType( Eval( ::bEditvalue ) ) == 'L' )

en mi caso..para el valor de tipo de LogicVal daba = "C"

asigné este valor a la data bEditValue para la primera columna

Code: Select all  Expand view

oBrwCTA:aCols[1]:bEditValue := { || (::oCta:cAlias)->lFactura }

y ahora ya se pintan los bitmaps.

Entonces... es necesario asignar un valor a bEditValue? mismo no necesite editar ? uso ya muchos años la TSbrowse... aun no domino la txbrowse

Alguien puede explicar esto? suponía que bEditValue se asignaba el solo de acuuerdo a la data de la columna.

Saludos.!

[Antonio Linares]

Ricardo,

La Clase TXbrowse es muy potente pero tambien resulta bastante compleja