Page 1 of 1

No refresca CHECKBOX...cómo hacerlo. (Solucionado)

Posted: Fri Nov 01, 2019 3:50 pm
by ACC69
Hola buenos dias amigos, de antemano saludos a todos.

Un favor porque no me refresca los controles checkbox tengo 7 checkbox y al hacer un cambio por ejemplo condicion logica no me cambia el parametro como bloqueado o activado, o como es la manera correcta de refrescar checkbox en tiempo de ejecucion, ya que a futuro al igual lo podre desactivar o activar el control de checkbox, pero no me surte el efecto.

Este es el ejemplo:

Code: Select all

REDEFINE CHECKBOX olChk[01] VAR lAct1 ID 301 [b]PROMPT IF(lAct1,"Bloqueado","Activado")[/b] OF oDlg ON CLICK ActDes(lAct1,1)

//------------------------------------------------------------------------------\\
STATIC FUNCTION ActDes(lAct, nCpo)
 LOCAL nX := 0
 *local cPrompt

 IF !OCUPADO(S05)
     (S05)->&( "ACT"+LTRIM(STR(nCpo)) ) := lAct

     (S05)->(DbCommit())
     (S05)->(DBUnlock()) // Desbloquea
 ENDIF

 FOR nX:=1 TO 7
      [b]olChk[nX]:Refresh()  // Esta parte no me refresca los checkbox, no me cambia Bloqueado o Activado desde prompt[/b]
      *oBtn[nX]:Disable() //Deshabilitar control de button
 NEXT nX
RETURN NIL
En los controles de button no tengo problemas puedo deshabilitar y habilitar, excepto en los controles de checkbox.

Me pueden apoyar por favor???

Gracias

Atte: Adriano C. C.

Re: No refresca CHECKBOX...cómo hacerlo.

Posted: Fri Nov 01, 2019 7:42 pm
by jvtecheto
Hola Amigo:

Porque no pruebas en la funcion en vez de devolver NIL,
devolver lAct

Code: Select all

RETURN lAct
 
Saludos.

Jose

Re: No refresca CHECKBOX...cómo hacerlo.

Posted: Sat Nov 02, 2019 1:06 pm
by FranciscoA
Intenta con:

Code: Select all

          ON CHANGE  oChk1:SetText(if(lChk1, " Activo"," Desact"))
 
Saludos.

Re: No refresca CHECKBOX...cómo hacerlo. (Solucionado)

Posted: Tue Nov 05, 2019 2:30 pm
by ACC69
FranciscoA wrote:Intenta con:

Code: Select all

          ON CHANGE  oChk1:SetText(if(lChk1, " Activo"," Desact"))
 
Saludos.
Hola buenos dias y gracias por responder a los Ing. Jose y Francisco Alegria.

Ing. Francisco Alegria me funciono tal como me puso el ejemplo, muchas gracias , ahora solo tengo que minimizar para que no tenga que ponerle a cada control el texto, ya que son 7 controles y a los 7 les quiero poner la condicion, bueno ya me dio la idea y vere como hacerlo y refrescar los 7 controles de checkbox.

Gracias Ing. Francisco y gusto saludarle.

Atte: Adriano C. C.