Page 1 of 1

Check box en campos NO logicos?

Posted: Tue Feb 25, 2025 6:34 pm
by Armando
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 | Expand

               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

Re: Check box en campos NO logicos?

Posted: Tue Feb 25, 2025 7:43 pm
by leandro
Creo que es lo que necesitas

Code: Select all | Expand

...
...

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

...