Erro com soma via SQL
14/07/2004
0
tenho essa procedure que soma valores de uma tabela onde existe o mesmo código em outra, mas na query onde eu faço a filtragem não está funcionando, ou seja, está somando todos os valores desse campo dessa tabela entrega.....Onde eu estou errando?
Facc
Posts
15/07/2004
Djjunior
se a query já estava aberta antes de vc dar o active true o sistema simplesmente não faz nada (vc não muda algo para algo igual :wink: )
15/07/2004
Rômulo Barros
+++++++++++++++++++++++++++++++++++++++++++++
Tente assim:
procedure TFrm_Movimentacao.SpeedButton2Click(Sender: TObject); Var Soma : Real; SQL : String; begin DataModule2.Qry_Entrega.Active := False; DataModule2.Qry_Entrega.SQL.Clear; Sql := ´Select Sum(E.ValorNf) From Entrega E,Movimentacao M ´; Sql := sql + ´ where M.NrLancamento = E.NrLancamento´; DataModule2.Qry_Entrega.SQL.Add(SQL); DataModule2.Qry_Entrega.Active := True; Soma := DataModule2.Qry_Entrega.Fields[0].AsFloat; Edit4.Text := ´R$ ´+FormatFloat(´#,,0.00´, Soma); end;
15/07/2004
Emerson Nascimento
do jeito que está a instrução, as tabelas estão sendo relacionadas pelo campo NrLancamento, mas estão sendo trazidos TODOS OS REGISTROS. não será aí o erro?
15/07/2004
Facc
Mas tem a condição Where na expressão SQL.
Clique aqui para fazer login e interagir na Comunidade :)