Somando capos de uma tabela temporária

[Pablo AG 0]

Olá pessoal,

Tenho uma tabela temporária que me mostra alguns filtros e gostaria de somar dois campos desta tabela.

 

EX:

Produto - Qtd - Vlr Total

Camiseta Branca - 10 - 100,00

Boné Americano - 400 - 1250,00

Camiseta Preta - 35 - 350,00

Camiseta Verde - 15 - 50,00

Boné Europeu - 350 - 1050,00

 

Quando faço um filtro por 'Bones' gotaria de mostra Qtd = 750,00 e Vlr Total = 2300,00.

Para isso tenho que fazer uma função para somar do 1 ao ultimo registro, mas não estou conseguindo.

 

Se alguem puder me ajudar agradeço desde já,

 

Pablo

[AbraaoRamiro 1]

var quant,valor:real

begin

 

TempTable1.Frist;

Quant:=0;

valor:=0;

 

While not TempTable1.Eof do

begin

 

Quant:=Quant+TempTable1.FinField('qunatidade').AsFloat;

Valor:=Valor+TempTable1.FinField('ValorProduto').AsFloat;

 

end;

 

LabelQnt.Caption:=Qunat;

LabelValor.Caption:=valor;

 

end;

 

Pronto! mais moleza que isso só casando com velho ou sentando em geléia.... B)

[AbraaoRamiro 1]

Fiz de cabeça, mais não confie na minha cabeça, não esta testado... mais espero ter ajudado... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

 

Procedore TForm.ButtonCalcOnClick (...);

var

Quant,Valor:Real;

Begin

TempTable.First;

Quant:=0.00;

Valor:=0.00;

 

While not TempTable.Eof do

begin

Valor:=Valor+TempTable.FindField('CampoValor').AsFloat;

Quant:=Quant+1;

TempTable.Next;

end;

 

Label1.Caption:=FloatToStr(Valor); // Valor de soma de mercadorias

Label2.Caption:=FloatToStr(Quant); // Valor de soma de Quantidades

Label3.Caption:=FloatToStr(Quant*Valor); // Valor de soma Total http://forum.imasters.com.br/public/style_emoticons/default/joia.gif