How to enforce all Validations

[Milan Mehta]

Hello All,

I have few Redefine Get with Valid clause on a Dialog. User can directly click on Ok button and skip all the valid clause ?

How can I prevent this ?

TIA
Milan.

[RAMESHBABU]

Hi Mr.Mehta

Do not use CANCEL clause with the BUTTON if you want all gets to be validated and vice-versa in case GETs are not be validated, when any
BUTTON is pressed/clicked.

- Ramesh Babu P

[Frank Demont]

You can make a construction as :

LOKAL lok := .T.
Aeval(oDlg:aControls,{|j|lok := lok .AND. EVAL(j:bValid)})

IF lOk is .F. , at least one valid clausule hes returned .F.

Frank

[Milan Mehta]

You can make a construction as :

LOKAL lok := .T.
Aeval(oDlg:aControls,{|j|lok := lok .AND. EVAL(j:bValid)})

IF lOk is .F. , at least one valid clausule hes returned .F.

Frank

Dear Frank,

No it does not work. It gives me error at Eval().

Can you guide me further. I am using Nov-05 build.

Witb best regards,

Milan.

[Antonio Linares]

local lOk := .t.

AEval( oDlg:aControls, {| j | lOk := lOk .and. If( j:bValid == nil, .t., Eval( j:bValid ) ) } )