Como faco para um edit receber o valor total

Delphi

10/11/2003

[color=green:4e03df6350]Como faco para um edit receber o valor toda vez que entrar um item na nota fiscal.. ele tem que ir somando..
por exemplo

cod..Produto..........Quantidade....Valor..
001..ProdutoTeste.....3................20,00.
002..testeProduto.....2.................30,00


ai o editValorTotal recebera o valor tipo = 50,00

ou seja editValorTotal.text := ´R$.:´ + Q.FieldByName(´Total´).AsFloat;

o detalhe é o seguinte eu não sei como receber isso por sql..[/color:4e03df6350]


Babu

Babu

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

10/11/2003

qry1.SQL.Text := ´SELECT SUM(B.QTD*B.VALOR) AS TOTAL FROM
VENDA A INNER JOIN ITENSVENDA B ON A.CODVENDA=B.CODVENDA
WHERE A.CODVENDA=:CODVENDA´;
qry1.SQL.ParamByName(´CODVENDA´).AsInteger := CodVenda;
qry1.open;
if not qry1.FieldByName(´TOTAL´).IsNull then
editValorTotal.Text := FormatFloat(´R$ #,,0.00´,qry1.FieldByName(´TOTAL´).AsFloat)
else
editValorTotal.Text := ´R$ 0,00´;
qry1.close;


GOSTEI 0
POSTAR