diff --git a/components/jujiboutils/src/jdblabeledfloatedit.pas b/components/jujiboutils/src/jdblabeledfloatedit.pas
index 0028faafd..9d18e2c74 100644
--- a/components/jujiboutils/src/jdblabeledfloatedit.pas
+++ b/components/jujiboutils/src/jdblabeledfloatedit.pas
@@ -142,7 +142,7 @@ procedure Register;
 implementation
 
 uses
-  Math, jdbutils;
+  Math, FMTBcd, jdbutils;
 
 procedure Register;
 begin
@@ -205,7 +205,13 @@ begin
         Caption := FormatFloat(EditFormat, theValue)
       else
         Caption := FloatToStr(theValue);
-      FDataLink.Field.Value := theValue;
+      //writeln(FDataLink.Field.FieldDef.DataType);
+      case FDataLink.Field.FieldDef.DataType of
+        ftFMTBcd: FDataLink.Field.AsBCD := StrToBCD(FormatFloat('0.'+StringOfChar('0', Decimals), theValue));
+        else
+          FDataLink.Field.Value := theValue;
+      end;
+
     end
     else
     begin