Tget is not returning orginal value when validation failed

[RAMESHBABU]

Hi All,

I have a get with validation. When the value entered is not correct,
the get should return the original value back.

But it is not done here.

I had to have a work around for this, saving the orginal value to a
varible and updating the get buffer back with old value when validation
fails.

Is is the original behaviour of FWH or I am making any mistake ?

I am using FWH 8.09.

- Ramesh Babu P

[Daniel Garcia-Gil]

how did you declare get?
did you use for/next?

[RAMESHBABU]

>>how did you declare get?

REDEFINE GET oGet VAR nNumber ID 100 PICT "99999" ;
OF oDlg UPDATE COLORS CLR_BLUE, nRGB(255,255,245) ;
VALID Check_Number(oGet, nNumber)

>>did you use for/next?
No.

[Daniel Garcia-Gil]

local uVal

.....

REDEFINE GET oGet VAR nNumber ID 100 PICT "99999" ;
OF oDlg UPDATE COLORS CLR_BLUE, nRGB(255,255,245) ;
VALID ( if ( Check_Number(oGet, nNumber), .t., ( nNumber:=uVal, oGet:refresh(), .f. ) ) )

oGet:bGotFocus:={|| uVal := nNumber }

i hope this help you...

[RAMESHBABU]

Hello mcfox

Let me thank you first for your time you have spent on this thread.

I know this work around trick and I have already implemented it, after having failed to get the expected result comparitively with the clipper behaviour of the validated get.

My regards to you,

- Ramesh babu P