* Fix bug ID #33691, BCD not correctly passed on

git-svn-id: trunk@38909 -

packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -1011,8 +1011,10 @@ begin
               s := FormatDateTime('yyyy"-"mm"-"dd', AParams[i].AsDateTime);
             ftTime:
               s := FormatTimeInterval(AParams[i].AsDateTime);
-            ftFloat, ftBCD:
+            ftFloat:
               Str(AParams[i].AsFloat, s);
+            ftBCD:
+              Str(AParams[i].AsCurrency, s);
             ftCurrency:
               begin
                 cash:=NtoBE(round(AParams[i].AsCurrency*100));