Fórum Total do pedido ??? #205816

tente da seguinte forma:

declare na região de procedures publicas
SomaTotal:

e depois implemente da seguite forma

procedure TForm1.SomaTotal;
var TotalPedido : Double {declara a variavel total}

begin

TotalPedido := 0; {inicializa a variavel com 0}

TabPedidosItens.First { vai para o primeiro registro}

while not TabPedidosItens.Eof do {verifica se esta no fim da tabela}
begin
Total := Total + TabPedidosItensTotalItem.value { acumula o total}
TabPedidosItens.Next { vai para o proximo registro }
end;

TabPedidosTotal.value := TotalPedido;

end;

acho que irá resolver

Inté

Emerson

Amigo Emerson,

Esse tipo de procedimento eu já faço, ou melhor, quase assim, só que utilizo uma query que soma os itens do pedido, mas existe um campo criado, como um lookup por exemplo, chamado agregado, que guarda o valor do istens somando no pedido, de qualquer forma agradeço pela tentativa de ajudar, e se souber algo sobre esse campo, post aqui neste topico por gentileza.

Ainda a procura...

ola amigo no MySql eu ultilizo assim

Totalizar Item a Item no Pedido:

Select Codigo,Produto,Unidade,Quantidade,VUnitario,(Quantidade*VUnitario) as VTotal from tbPedido

Totalizar Pedido:

Select SUM(Quantidade*VUnitario) as VTotal from tbPedido

OBS: Tudo isso eu faco no MySql nao sei se em outro BD eh possivel assim.