Problem with Valid 2

[fbizzell]

I am trying to use the Valid command or function and have used it in the past but all of a sudden I can't get it to work. What is wrong with this code:

ndropoff:=0
@ 5,10 say "Enter drop off" get ndropoff valid ; ndropoff>=1.00
read

It should not let me enter .50 but it does.

 

[mspratt]

Hi fbizzell,

Try this instead:

ndropoff:=0
@ 5,10 say "Enter drop off" get ndropoff valid(ndropoff>=1)
read
quit

Untested.

Regards,

Mike

 

[GriffMG]

Pretty close, you need to initialise the ndropoff to a non-integer value...

After that it works well.

ndropoff =0.00
@ 5,10 say "Enter drop off" get ndropoff valid(ndropoff>=1)
read

Regards

Griff
Keep [Smile]ing

 

[GriffMG]

PS I tested it in VFP

Regards

Griff
Keep [Smile]ing

 

[fbizzell]

Thanks mspratt and Griffmg. I will give this another shot in the morning.