[firebase-br] Problemas com calculos

[Marcelo Castro - [www.ligteltelecom.com.br]]

Instrução SQL na QrySomaItem :

UPDATE PEDIDOLOG SET PED_QTDE = (SELECT SUM(PLI_QTDE) AS QTDETOTAL FROM PEDLOGITEM WHERE PED_NUMERO = :PED_NUMERO),

PED_VALOR = (SELECT SUM(PLI_VALUNIT) AS VALORTOTAL FROM PEDLOGITEM WHERE PED_NUMERO = :PED_NUMERO) WHERE PED_NUMERO = :PED_NUMERO




procedure TDM_Server.DspVendaLogAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind);
begin
        If SourceDS = QryVendaLog THEN
          If UpdateKind = ukInsert THEN
          begin
              QrySomaItem.Params[0].Value := FNumVendaLog;
              QrySomaItem.Params[1].Value := FNumVendaLog;
              QrySomaItem.Params[2].Value := FNumVendaLog;
              QrySomaItem.ExecSQL;
          END;
end;

O problema é não é executado a qrysomaitem ou acontece algum erro porém este erro não é apresentado, somente não é atualizado a tabela PEDIDOLOG .

Se eu executar a instrução SQL da qrysomaitem no IB Console funciona 100 %.

Alguém pode me ajudar neste problema ?

Alguém sabe como fazer um procedure ou trigger para isso acima funcionar corretamente ?