Fórum Somar campos de uma tabela? #171794
27/07/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
28/07/2003
Aroldo Zanela
Luiz,
Não consegui ver nenhum erro. Mas vamos tentar utilizar nomes e espaços maiores:
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;
Responder
Gostei + 0
28/07/2003
Luiz.gv
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;
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;
Responder
Gostei + 0
28/07/2003
Okama
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)