Devart Forums

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;