ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBArray.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 58 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 59 by tony, Mon Mar 13 09:51:56 2017 UTC

# Line 398 | Line 398 | begin
398      if trim(Value) = '' then
399        SetAsInt64(0)
400      else
401 <      SetAsInt64(StrToInt(Value));
401 >      SetAsInt64(AdjustScaleFromCurrency(StrToCurr(Value),GetScale));
402  
403    SQL_D_FLOAT,
404    SQL_DOUBLE,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines