You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
The IsDecimalNegatives function in IsDecimal.dbl doesn't cast the value to an alpha before trying to move it back to a decimal field to test for badDigit.
in IsDecimalNoNegatives the passed in aNumber is correctly cast to an alpha to test for bad digits.
onerror badDigit
number = ^a(aNumber)
freturn true
badDigit,
freturn false
However in the IsDecimalNegatives the value is simply passed from one decimal field to another with no casting to an Alpha.
onerror badDigit
;;Is the last character between "p" and "y"
if (lastCharacter>='p' && lastCharacter<='y') then
begin
;;If it's the first character then it's a single-digit negative
if (lastCharacterPos==1)
begin
exit
end
;;Make sure the rest of the value looks OK
number = aNumber(1:lastCharacterPos-1) ;; SHOULD BE A CAST TO ALPHA HERE
if (number < 0)
goto badDigit
end
else
begin
;;No "p" through "y", check the whole value
number = aNumber ;; SHOULD BE A CAST TO ALPHA HERE
end
freturn true
badDigit,
freturn false
The text was updated successfully, but these errors were encountered:
The IsDecimalNegatives function in IsDecimal.dbl doesn't cast the value to an alpha before trying to move it back to a decimal field to test for badDigit.
in IsDecimalNoNegatives the passed in aNumber is correctly cast to an alpha to test for bad digits.
However in the IsDecimalNegatives the value is simply passed from one decimal field to another with no casting to an Alpha.
The text was updated successfully, but these errors were encountered: