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

[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  Expand view  RUN

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.

[jvtecheto]

Hola Amigo:

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

Code: Select all  Expand view  RUN

RETURN lAct
 

Saludos.

Jose

[FranciscoA]

Intenta con:

Code: Select all  Expand view  RUN

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

Saludos.

[ACC69]

Intenta con:

Code: Select all  Expand view  RUN

         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.