Total do pedido ???

Delphi

12/01/2004

Senhores,

Peço por gentileza, se alguém puder me ajudar, preciso fazer com que o total dos itens do pedido gere um total para o pedido, ja ouvi dizer de algo como campo agregado, se alguém puder me ajuder, agradeço.


Rocetti

Rocetti

Curtidas 0

Respostas

Emerson.silva

Emerson.silva

12/01/2004

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


GOSTEI 0
Rocetti

Rocetti

12/01/2004

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...


GOSTEI 0
Tarcisiojr

Tarcisiojr

12/01/2004

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.


GOSTEI 0
POSTAR