Bob,
I am using that script along with the following script, which is placed first.
The script below prevents a negative number being entered. My app calculates
mileage and hence, I will not have a negative number.
on keyDown theKey
if theKey is in "1234567890" then
pass keydown
end if
if theKey="." and "." is not in me then
if me is empty or the number of chars of me=1 and char 1 of me="-" then
put "0." after me
else
pass keydown
end if
end if
end keyDown
I then use the following scripts:
on backSpaceKey
put empty into me
end backSpaceKey
on backSpaceKey
put empty into me
end backSpaceKey
on closeField
if me <> empty
then
put me into tNum
if char 1 of tNum = "$"
then
delete char 1 of tNum
put format("$%1.2f", tNum) into me
else
put format("$%1.2f", tNum) into me
end if
put field "expen1" into t1
put filterThis(t1) into tFiltered1
put field "expen2" into t2
put filterThis(t2) into tFiltered2
end closeField
I am using Nicolas Cuato's scripts for filtering out the $ sign. If you need
those scripts, please let me know.
Charles Szasz
csz...@mac.com
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
