Float Error
Posted: Wed 11 Jul 2018 07:50
since v336 Data.DB rises the error:
Definition of the LiteTable:
failed Operation:
The last line raises the error since latest Version 3.3.6.
What is wrong?
Code: Select all
function TField.GetAsFloat: Double;
begin
raise AccessError('Float'); { Do not localize }
end;
Code: Select all
CREATE TABLE [KaVerCollect](
[Idx] INTEGER PRIMARY KEY AUTOINCREMENT,
[Position] INTEGER,
[Barcode] NVARCHAR(13) NOT NULL ON CONFLICT FAIL,
[BN] INTEGER,
[Bezeichnung] NVARCHAR(40),
[Artikelnummer] NVARCHAR(20),
[Label] NVARCHAR(40),
[Groesse] NVARCHAR(8),
[Farbe] NVARCHAR(6),
[Farbtext] NVARCHAR(50),
[MWStKz] INTEGER,
[MWStProzent] FLOAT(5, 2),
[Kundennummer] INTEGER,
[MengeKasse] INTEGER,
[PreisVK] FLOAT(10, 2),
[PreisBasis] FLOAT(10, 2),
[PreisnachlassBetrag] FLOAT(10, 2),
[Verkaufsrabatt] FLOAT(5, 2),
[VerkaufsrabattBetrag] FLOAT(10, 2),
[PreisKasseBasis] FLOAT(10, 2),
[Kundenrabatt] FLOAT(5, 2),
[KundenrabattBetrag] FLOAT(10, 2),
[GesamtnachlassBetrag] FLOAT(10, 2),
[PreisKasse] FLOAT(10, 2),
[MWStBetrag] FLOAT(10, 2),
[Kennzeichen] NVARCHAR(1));
CREATE UNIQUE INDEX [Id_KaVerCollect]
ON [KaVerCollect](
[Position],
[Idx]);
Code: Select all
var
RechnungsbetragOhneRundung: Currency;
QVerCollect: TMSQuery;
begin
QVerCollect.SQL.Clear;
QVerCollect.SQL.Add('SELECT total(PreisKasse) as "SummePreisKasse" FROM KaVerCollect WHERE (Kennzeichen <> ''D'')');
QVerCollect.Open;
RechnungsbetragOhneRundung := QVerCollect.FieldByName('SummePreisKasse').AsCurrency; <-- ERROR TField.GetAsFloat
end;
What is wrong?