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

Board index FiveWin para Harbour/xHarbour No refresca CHECKBOX...cómo hacerlo. (Solucionado)

Posts: 632

Joined: Tue Dec 12, 2006 07:34 PM

No refresca CHECKBOX...cómo hacerlo. (Solucionado)
Posted: Fri Nov 01, 2019 03:50 PM

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 (fw): Select all Collapse

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

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: No refresca CHECKBOX...cómo hacerlo.
Posted: Fri Nov 01, 2019 07:42 PM

Hola Amigo:

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

Code (fw): Select all Collapse

RETURN lAct

Saludos.

Jose

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: No refresca CHECKBOX...cómo hacerlo.
Posted: Sat Nov 02, 2019 01:06 PM

Intenta con:

Code (fw): Select all Collapse

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

ACC69

Posts: 632

Joined: Tue Dec 12, 2006 07:34 PM

Re: No refresca CHECKBOX...cómo hacerlo. (Solucionado)
Posted: Tue Nov 05, 2019 02:30 PM

FranciscoA wrote:Intenta con:
Code (fw): Select all Collapse
          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.

FiveTech Support Forums

Continue the discussion