Total de um campo calculado. Como???

Delphi

13/11/2003

Olá

Eu tenho duas tabelas (mestre/detalhe). Sao ´Nota´ e ´itens da Nota´.
No ´itens da Nota´ tenho um campo calculado TOTAL que é o item * valor.
Na mestre ´Nota´ tenho um campo calculado PRODUTOS que, à medida que vou digitando os itens na Detalhe, deve mostrar a soma do TOTAL (da detalhe). Seria algo assim no OnCalcFields da table Mestre:
MestrePRODUTOS.value:= SUM(DetalheTOTAL.value);

Alguém poderia me dar uma ajuda nisto? :cry:

[ ]´s


Ivonei

Ivonei

Curtidas 0

Respostas

Cbier

Cbier

13/11/2003

tente assim

No onclick de um botão:

var
total:currency;
begin
total:=0;
tblitem.first;
while not tblitem.eof do
begin
total:=total + tblitemtotal.value;
tblitem.next;
end;
DBEdit1.text:=formatcurr(´#0.00´, total);

Observe que o DBEdit1 deve ser o campo da sua tabela Master.

O campo da tabela que vai receber o resultado deve seu um campo do tipo currency($).

O sistema realiza uma busca e retorna com a soma.

Espero ter ajudado.

CBier


GOSTEI 0
Ivonei

Ivonei

13/11/2003

Valeu colega, mas não posso usar este método. Este campo total vai ter que ser atualizado toda vez que o usuario inserir um novo item na Nota. Aí fica complicado percorrer a tabela toda vez que um item for inserido.
Acho que deve haver uma outra maneira mais pratica. Só não sei qual. :?

Até +


GOSTEI 0
POSTAR