I have this code, where error occured with IBDAC 8.0.2 version.
I must downgraded to IBDAC 7.4.4 where all is OK.
Can you please check it and fix it ?
Thanks
Code: Select all
qKI.SQL.Text:='SELECT pcI, SUM(CENAO), SUM(CENAS), SUM(HM), SUM(HMBAL), SUM(CELKPOCET), SUM(VYRPOC), SUM(NAKO*ICELKKS), SUM(NAKS*ICELKKS), SUM(CENAO*ICELKKS), SUM(CENAS*ICELKKS), SUM(NAKO), SUM(NAKS)'
+' FROM BWIO'
+' WHERE PCI=10001562 AND NOT INULY'
+' GROUP BY PCI';
qKI.Open;
Pocet:=qKI.RecordCount;
if Pocet>0 then begin
qKU.SQL.Text:='UPDATE I SET CENA=:0, HM=:1, HMBAL=:2, OPEALL=:3, OPEVYR=:4, NAKL=:5 WHERE PC=:6';
qKU.Params[0].DataType:=ftCurrency;
qKU.Params[1].DataType:=ftCurrency;
qKU.Params[2].DataType:=ftCurrency;
qKU.Params[3].DataType:=ftInteger;
qKU.Params[4].DataType:=ftInteger;
qKU.Params[5].DataType:=ftCurrency;
qKU.Params[6].DataType:=ftInteger;
qKU.Params.ValueCount:=Pocet; // specify the array dimension:
qKI.First; i:=0;
while not qKI.Eof do begin
Inc(i);
qKU.Params[0][i-1].AsCurrency:=qKI.Fields[1].AsCurrency+qKI.Fields[2].AsCurrency;
qKU.Params[1][i-1].AsCurrency:=qKI.Fields[3].AsCurrency;
qKU.Params[2][i-1].AsCurrency:=qKI.Fields[4].AsCurrency;
qKU.Params[3][i-1].AsInteger:=qKI.Fields[5].AsInteger;
qKU.Params[4][i-1].AsInteger:=qKI.Fields[6].AsInteger;
qKU.Params[5][i-1].AsCurrency:=qKI.Fields[11].AsCurrency+qKI.Fields[12].AsCurrency;
qKU.Params[6][i-1].AsInteger:=qKI.Fields[0].AsInteger;
qKI.Next;
end;
qKU.Execute(Pocet);
end;
qKU.Params.Clear;
qKI.Close;