topic-45452

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Check box en campos NO logicos?
Posted: Tue Feb 25, 2025 06:34 PM

Amigos foreros:

En un XBrowse, el siguiente código funciona de 100 cuando el campo esta definido en la tabla como un campo lógico

Code: Select all Collapse

               WITH OBJECT :Env
                  :SetLogical()
                  :SetCheck(NIL,(.F.))
               END

Pero ahora tengo un campo numérico con valor de 1 o 0 al que quiero que también
se muestre el check box como si el campo fuera lógico.

Alguna sugerencia?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Check box en campos NO logicos?
Posted: Tue Feb 25, 2025 07:43 PM

Creo que es lo que necesitas

Code: Select all Collapse

...
...

Local cbCambioEstado := <|x,y|
	aDatos[oBrw:nArrayAt]["incluida"] := if(x,1,0)
	oBrw:refresh()
>
....

:aCols[2]:bEditValue := {|| if(aDatos[oBrw:nArrayAt]["incluida"]==0,.F.,.T.) }
:aCols[2]:cDataType  := "L"
:aCols[2]:nEditType := EDIT_GET
:aCols[2]:SetCheck()
:aCols[2]:bOnPostEdit    := { | o, x, n | EVAL(cbCambioEstado,x) }		
:aCols[2]:nHeadStrAlign := AL_CENTER

...

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion