FiveTech Software tech support forums

... LOCAL cVr3 := SPACE( 30 )    DEFINE DIALOG oDlg    @ 1, 1 SAY "Test 1:" GET oGt1 VAR cVr1 VALID !EMPTY( GETACTIVE():VarGet() )    @ 2, 1 SAY "Test 2:" GET oGt2 VAR cVr2 VALID !EMPTY( GETACTIVE():VarGet() ...

...   LOCAL cVr2 := SPACE( 30 )    LOCAL cVr3 := SPACE( 30 )    LOCAL bVl1 := { || !Empty( GetActive():VarGet() ) }    LOCAL bVl2 := { || !Empty( GetActive():VarGet() ) }  ...

Any ideas?

EMG

No, sorry, still doesn't work fine.

EMG

... 30 )    DEFINE DIALOG oDlg    @ 1, 1 SAY "Test 1:" GET oGt1 VAR cVr1 VALID ( oGet := oGt1, !EMPTY( GETACTIVE():VarGet() ) )    @ 2, 1 SAY "Test 2:" GET oGt2 VAR cVr2 VALID ( oGet := oGt2, !EMPTY( ...

Works fine here moving backwards. Please, show a sample of the problem.

EMG

hi Enrico
I try it but unfortunately it doesn't work
when I move backwards with the mouse,
however the get active is always the one I am on, right?
bye

Please try my latest sample that is reported in my previous post. And yes, clicking problem is not solved.

EMG

hi enrico
if you go back thru the controls , the error appears
there is no function es.: PREVTDLGTAB ?
or or proceed forward by skipping the controls that are not input up to the previous get,
perhaps the problem of jumping using the mouse would remain.

bye

This is slightly better but still not perfect: FUNCTION GETACTIVE()    LOCAL i    FOR i = 1 TO LEN( oDlg:aControls )        IF oDlg:aControls[ i ]:HasFocus()      ...

Hi Enrico
It's OK GREAT !
bye

Yes, I know. That's why I write "better".

Any ideas about how to solve the problem?

EMG

Enrico,

Esa solución sólo funcionará si se avanza al siguiente Get. Probablemente no funcione si se retrocede al anterior Get

I'm using this function that seems to work better: FUNCTION GETACTIVE( oDlg )    LOCAL i    FOR i = 1 TO LEN( oDlg:aControls )        IF oDlg:aControls[ i ]:HasFocus()    ...

...   LOCAL oDlg    LOCAL cVr1 := SPACE( 30 )    LOCAL nVr2 := 100    DEFINE DIALOG oDlg    @ 1, 1 GET cVr1 VALID IF( empty(GETACTIVE( oDlg ):VarGet())  , (MsgAlert("Campo obbligatorio", "Errore")        , .F.), .T.) ...