Fórum Baixa em estoque #195328

:cry: Olá galera.
Estou precisando de um código que me mostre como dar baixa em estoque pois o meu não esta dando certo.
Ex:(Tenho um cadastro de produtos um de vendas e um de cliente so que quando eu efetuo uma venda não da baixa na tabela de produtos no caso na quantidade.
Estou trabalhando com Delphi 5 e Paradox 7 .
A tabela de Vendas esta relacionada com a tabela de Produtos.
Tenho o seguinte código.

begin
DM_Geral.QR_DetVendas.First;
While not DM_Geral.QR_DetVendas.Eof do
begin
Dm_Geral.QR_BaixaEstoque.Close;
Dm_Geral.QR_BaixaEstoque.ParamByName(´ID´).Value:=DM_Geral.QR_DetVendasID_Produto.Value;
Dm_Geral.QR_BaixaEstoque.Open;
Dm_Geral.QR_BaixaEstoque.Edit;
Dm_Geral.QR_BaixaEstoqueQuantidade.Value:=Dm_Geral.QR_BaixaEstoqueQuantidade.Value-Dm_Geral.QR_DetVendasQuantidade.Value;
DM_Geral.QR_BaixaEstoque.Post;
DM_Geral.QR_DetVendas.Next;


end;

Se alguem puder me ajudar ou souber onde concigo um exemplo de como fazer isto ficarei grato.

Desde já agradeço.
Jackell

Meu E_mail: jackell_alves@hotmail.com