Somar campos de uma tabela?

Delphi

27/07/2003

Preciso somar o valor de cada produto vendido, obtendo o total desta venda.
Utilizo uma tabela ITEM(paradox), e preciso somar o campo ValorUnitario, estou tentando fazer assim:

with DM.Query1 do
begin
Close;
sql.Clear;
sql.Add(´Select SUM(ValorUnitario)´);
sql.Add(´from Item´);
sql.Add(´where CodVenda=:e´);
ParamByName(´e´).AsString:=FVenda.DBEdit1.Text;
Open;
end;

Alguém pode corrigir este código, ou me orientar a fazer diferente?

Luiz Augusto
luizgv@yahoo.com.br


Luiz.gv

Luiz.gv

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

27/07/2003

Luiz,

Não consegui ver nenhum erro. Mas vamos tentar utilizar nomes e espaços maiores:

with DM.Query1 do 
begin 
Close; 
sql.Clear; 
sql.Add(´Select SUM(ValorUnitario) as Total´); 
sql.Add(´from Item´); 
sql.Add(´where CodVenda = :CODIGO´); 
ParamByName(´CODIGO´).AsString := FVenda.DBEdit1.Text; // Faça um teste aqui (debug) pra o ver se realmente um valor está sendo passado.
Open; 
end;



GOSTEI 0
Luiz.gv

Luiz.gv

27/07/2003

Como eu poderia pegar o valor desta variável (Total) para jogá-la em um DBEdit?


with DM.Query1 do
begin
Close;
sql.Clear;
sql.Add(´Select SUM(ValorUnitario) as Total´);
sql.Add(´from Item´);
sql.Add(´where CodVenda = :CODIGO´);
ParamByName(´CODIGO´).AsString := FVenda.DBEdit1.Text;
Open;
end;


GOSTEI 0
Okama

Okama

27/07/2003

Como eu poderia pegar o valor desta variável (Total) para jogá-la em um DBEdit? with DM.Query1 do begin Close; sql.Clear; sql.Add(´Select SUM(ValorUnitario) as Total´); sql.Add(´from Item´); sql.Add(´where CodVenda = :CODIGO´); ParamByName(´CODIGO´).AsString := FVenda.DBEdit1.Text; Open; end;


DBEdit1.Text := DM.Query1.FieldByName(´Total´).asString

se não funcionar tenta com Edit:

Edit1.Text := DM.Query1.FieldByName(´Total´).asString


GOSTEI 0
POSTAR