Calculo total dos produtos

Question

Ola meu nome e Adriano,Estou criando um sistema de vendas, onde tenho uma tabela de vendas, cod_produto, valor_unitario, quantidade, valor_totalexemplo: produto 1 10,00         produto 2 20,00ou ...

Ricardo Rodrigues · Answer

N�o entendi direito sua d�vida, mais pelo que entendi .... por exemplo, caso vc esteja utilizando clientdataset, vc pode estar utilizando um campo calculado ou um aggregate.

Att.
Ricardo Rodrigues

Adrianogserafim · Answer

No momento estou utilizando o tibtable,tenho uma tabela cvenda esse e o cabe�alho da venda onde esta o total da nota de venda val_t_notatenho outra tabela dvenda onde esta o detalhe da venda e o campo valor total dos produtos val_totou seja preciso jogar o valor total da venda dos produtos em um dbedit e salvar na tabela cvenda val_t_notacod_pro descri�ao quanti  uni  valor total1         tinta      1     10    102         camisa     2     20    40esses campos sao da tabela dvendadai eu calculo o total dos produtos e salvo no campo valor total da venda = 50 que seria o campo cvenda val_t_nota...

Wanderson Cardoso · Answer

J� que n�o est� usando ClientDataSet voce pode usar vari�veis e Calcular o total sem que vc incluir ou excluir um item da venda....

Adrianogserafim · Answer

Pois bem eu tenho ate duas formas bem legais que vai servir para nossos amigos que est�o acompanhando o fourm.
1.usando o evento atraves de um botao
var soma:currency;
begin
soma:=0;
DMORDEMDESERVICO.DVENDA.First; //posiciona no primeiro
while not DMORDEMDESERVICO.DVENDA.Eof do
begin
soma:= soma + DMORDEMDESERVICO.DVENDAVAL_TOT.value;
DMORDEMDESERVICO.DVENDA.Next;
end;
DMORDEMDESERVICO.CVENDA.Edit;
DMORDEMDESERVICO.CVENDAVAL_T_NOTA.Value := soma;

2.usando atraves de uma query
FMSaidaitem.QUESOMA.Close;
FMSaidaitem.QUESOMA.SQL.Clear;
FMSaidaitem.QUESOMA.SQL.Add(Select Sum(VAL_TOT) as TOTAL from DVENDA);
FMSaidaitem.QUESOMA.Open;

FMSaidaitem.Edit1.Text:= FormatFloat(0,FMSaidaitem.QUESOMATOTAL.Value);

o do evento do botao funciona direitinho porem acho que nao fica legal, ja o da query coloquei o codigo no AfterPost da tabela dai ele esta calculando o valor total nao so da venda 1 ou 2 e sim de todas as vendas realizadas.
vc sabe como fa�o para fazer ele calcular somente a cada venda?

Joel Rodrigues · Answer

adrianogserafim,o segundo evento est� calculando o total de todas as vendas por que voc� n�o est� filtrando a venda que voc� quer e ainda est� bucando a soma dos totais. Creio que para o seu caso, a consulta deveria ser algo como:SELECT VAL_TOT AS TOTAL FROM DVENDA WHERE COD_VENDA = 001Voc� deve estar usando Firebird/Interbase, certo?Uma outra op��o seria voc� criar um trigger na tabela dos itens da venda para que sempre que um item fosse inserido/exclu�do/alterado, o total da venda fosse atualizado. A ideia � fazer um trigger que seja executado em todas as opera��es (insert, update, delete). Com isso, voc� n�o precisaria REcalcular o total no seu c�digo no Delphi, bastaria atualizar a query com os dados da venda para ver o total sempre atualizado. Sem falar que isso proporciona um melhor desempenho para a aplica��o.Espero ter sido claro e ajudado....

Adrianogserafim · Answer

Eu so nao entendi a ultima parte onde cod_dvenda =001 ou seja nao entendi esse numero ja que ele vai calcular somete a venda 001...

F�rum Calculo total dos produtos #409096