paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 12:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Money-types are stored as int64 by postgres

Browse Source 
* Use a dot as decimalseparator while generating test-data for currencies

git-svn-id: trunk@12572 -
This commit is contained in:
joost 2009-01-19 21:53:05 +00:00
parent f991a764a5
commit 7a8a249687
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -768,7 +768,7 @@ begin
ftCurrency : ftCurrency :
begin begin
dbl := pointer(buffer); dbl := pointer(buffer);
dbl^ := BEtoN(PInteger(CurrBuff)^) / 100; dbl^ := BEtoN(PInt64(CurrBuff)^) / 100;
end; end;
ftBoolean: ftBoolean:
pchar(buffer)[0] := CurrBuff[0] pchar(buffer)[0] := CurrBuff[0]

7
packages/fcl-db/tests/toolsunit.pas
View File

@ -235,9 +235,12 @@ begin
testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]); testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]);
testValues[ftInteger,i] := IntToStr(testIntValues[i]); testValues[ftInteger,i] := IntToStr(testIntValues[i]);
testValues[ftLargeint,i] := IntToStr(testLargeIntValues[i]); testValues[ftLargeint,i] := IntToStr(testLargeIntValues[i]);
DecimalSeparator:=','; // The decimalseparator was set to a comma for currencies and to a dot for ftBCD values.
testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i]); // But why is not clear to me. For Postgres it works now, with a dot for both types.
// DecimalSeparator:=',';
DecimalSeparator:='.'; DecimalSeparator:='.';
testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i]);
// DecimalSeparator:='.';
testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i]); testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i]);
end; end;