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

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

Postby ACC69 » Fri Nov 01, 2019 3: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: 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.
Last edited by ACC69 on Tue Nov 05, 2019 2:31 pm, edited 1 time in total.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

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

Postby jvtecheto » Fri Nov 01, 2019 7:42 pm

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
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
User avatar
jvtecheto
 
Posts: 601
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

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

Postby FranciscoA » Sat Nov 02, 2019 1:06 pm

Intenta con:
Code: Select all  Expand view  RUN
         ON CHANGE  oChk1:SetText(if(lChk1, " Activo"," Desact"))
 

Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

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

Postby ACC69 » Tue Nov 05, 2019 2:30 pm

FranciscoA wrote: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.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests