FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Una ayudita con los RADIOS
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Una ayudita con los RADIOS
Posted: Wed Apr 22, 2009 07:09 PM

Hola amigos

Como hago para que cuando un RADIO cambie automáticamente ejecute una ACCION si necesidad de tener un BOTON

Ej:
REDEFINE RADIO nTodCen ID 101,102 OF oDlg1 UPDATE
REDEFINE SAY oSector VAR cSector ID 201 OF oDlg1 UPDATE
REDEFINE RADIO nPenProEje ID 103,104,105 OF oDlg1 UPDATE
REDEFINE BUTTON oBtn ID 106 OF oDlg1 ACTION ( Cambia(oDBF),oBrw1:GoTop(),oBrw1:Update(),oBrw1:SetFocus() )

Quiero que ejecute esta accion
( Cambia(oDBF),oBrw1:GoTop(),oBrw1:Update(),oBrw1:SetFocus() )

Gracias por su colaboracion

Saludos

Adhemar

Saludos,



Adhemar C.
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Una ayudita con los RADIOS
Posted: Wed Apr 22, 2009 07:27 PM

Adhemar, talvez este trozo de codigo pueda ayudarte.

//-------------------------------
FUNCTION xxx
local oRadio,uGet, nVAR := 1
local xuGet :={|| if(nVar==3,uGet:=0,uGet:=space(len(movprodt->descrip)))}

REDEFINE RADIO oRadio VAR nVar ID 103,112,104,105,110,111,113 OF oDlg ON CHANGE EVAL(XUGET)

Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Una ayudita con los RADIOS
Posted: Wed Apr 22, 2009 07:47 PM

Gracias Distinguido, eso era lo que necesitaba, lo logré

Saludos desde Santa Cruz de la Sierra

Adhemar

Saludos,



Adhemar C.

Continue the discussion