pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix fmtBCD data type

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8009 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2021-05-09 08:22:00 +00:00
parent 3925ebaa0d
commit d9914d4650
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/jujiboutils/src/jdbgridutils.pas
View File

@ -199,7 +199,7 @@ type
implementation implementation
uses uses
Math, dateutils; Math, FMTBcd, dateutils;
{ TJDbGridStringCtrl } { TJDbGridStringCtrl }
@ -1015,6 +1015,10 @@ begin
Field.DataSet.Edit; Field.DataSet.Edit;
if decimals > 0 then if decimals > 0 then
theValue := ScaleTo(theValue, fDecimals); theValue := ScaleTo(theValue, fDecimals);
if Field.FieldDef.DataType = ftFMTBcd then
Field.AsBCD := StrToBCD(FormatFloat('0.' +
StringOfChar('0', Decimals), theValue))
else
Field.Value := theValue; Field.Value := theValue;
Field.DataSet.EnableControls; Field.DataSet.EnableControls;
updated := True; updated := True;
@ -1083,6 +1087,9 @@ begin
Field.DataSet.Edit; Field.DataSet.Edit;
if decimals > 0 then if decimals > 0 then
theValue := ScaleTo(theValue, fDecimals); theValue := ScaleTo(theValue, fDecimals);
if Field.FieldDef.DataType = ftFMTBcd then
Field.AsBCD := StrToBCD(FormatFloat('0.' + StringOfChar('0', Decimals), theValue))
else
Field.Value := theValue; Field.Value := theValue;
CellEditor.Text := Field.AsString; CellEditor.Text := Field.AsString;
updated := True; updated := True;