Procedimento

Como criar procedimentos em delphi, onde declaro essa procedure, qual a sintáxe, por exemplo, quando adicionar itens da venda na dbgrid, quando for somando seus valores, eu chamar um procedimento para mostrar o valor total no dbedit de valor total? Este é o código pra somar os itens e enviar para o dbtotal:

with DMDados.TbItensVendas do
begin
somaT:=0;
DMDados.TbItensVendas.First;
while not DMDados.TbItensVendas.Eof do
begin
somaT:= somaT + DMDados.TbItensVendassubtotal.Value;
DMDados.TbItensVendas.Next;
end;
DMDados.TbVendas.Edit;
DMDados.TbVendastotal.Value:= somaT;
DMDados.TbVendas.Post;

end;

Obrigado!

Olá amigo.

Existe várias forma de se fazer isso, muitas pessoas gostam de usar campos calculados para fazer isso.

Outras fazem como vc postou a cada item inserido vai totalizando.

Nesse caso so tem um problema que e a demora pra fazer esse while quando tem bastante itens da venda.

Para declarar o procedimentos e muito, basta declarar na mesma tela da venda na seção pullic ou privat.

ex:
Prodedure calculaTotal;

Depois criar o seu corpo usando CRTL+SHIFT+C

depois e so codificar.

Prodedure TFrmvenda.calculaTotal;
Begin

with DMDados.TbItensVendas do
begin
somaT:=0;
DMDados.TbItensVendas.First;
while not DMDados.TbItensVendas.Eof do
begin
somaT:= somaT + DMDados.TbItensVendassubtotal.Value;
DMDados.TbItensVendas.Next;
end;
DMDados.TbVendas.Edit;
DMDados.TbVendastotal.Value:= somaT;
DMDados.TbVendas.Post;
end;

espero ter ajudado..

abraços