Problems with Button activation

[cdmmaui]

I have a problem with the following code that is not activing a button when checkbox is clicked.

REDEFINE CHECKBOX aGet[71] VAR lActive ID 163 OF oFld:aDialogs[1] WHEN lAcctAdmin ;
VALID( aGet[72]:Refresh(), oDlg:Update(), .T. )

REDEFINE BUTTON aGet[72] ID 1 OF oDlg UPDATE ACTION ( lSave := .t. , oDlg:End() ) WHEN lActive

I would appreciate your assistance.

Thank You,

[ukoenig]

Hello,

Using a Checkbox and start a action :
( the checkbox closes the dialog )

Code: Select all  Expand view


REDEFINE CHECKBOX  lCheck  ID 300 OF oDlg5 ;
ON CHANGE oButton:Click()

REDEFINE BUTTONBMP oButton  ID 30 OF oDlg5 ;
ACTION oDlg5:End() ;
BITMAP "Quit" PROMPT "   Exit" TEXTRIGHT



Regards
uwe

[Marcelo Via Giglio]

Hola,

you can use oDlg:aEvalWhen() in the checkbox´s VALID or ON CHANGE
regards

Marcelo

[StefanHaupt]

I have a problem with the following code that is not activing a button when checkbox is clicked.

REDEFINE CHECKBOX aGet[71] VAR lActive ID 163 OF oFld:aDialogs[1] WHEN lAcctAdmin ;
VALID( aGet[72]:Refresh(), oDlg:Update(), .T. )

REDEFINE BUTTON aGet[72] ID 1 OF oDlg UPDATE ACTION ( lSave := .t. , oDlg:End() ) WHEN lActive

I think, you can´t use the valid clause for this, use ON CHANGE to activate the button

Code: Select all  Expand view

REDEFINE CHECKBOX aGet[71] VAR lActive   ID 163  OF oFld:aDialogs[1]  WHEN lAcctAdmin ;
      ON CHANGE ( aGet[72]:Refresh(), oDlg:Update() )