Como fazer Tabela de Estoque receber o saldo
Ola galera,
Estou desenvolvendo um sistema de controle de estoque gostaria de uma ajuda: tenho as seguintes tabelas : tbCadastro, tbEntrada, tbSaida, tbEstoque, quando é cadastrado um produto insere-se o codigo, a descrição e a unidade, não é colocado a quantidade mesma é lançada quando dou entrada do produto, na tabela de Saida também e lançada a quantidade que é vendida certo, eu gostaria de saber como fazer para que a tabela de estoque no campo Saldo receba o saldo que tem no estoque, pois não estou conseguindo fazer isso.
Obs: uso Delphi5 e tabela Paradox
obrigado.
Estou desenvolvendo um sistema de controle de estoque gostaria de uma ajuda: tenho as seguintes tabelas : tbCadastro, tbEntrada, tbSaida, tbEstoque, quando é cadastrado um produto insere-se o codigo, a descrição e a unidade, não é colocado a quantidade mesma é lançada quando dou entrada do produto, na tabela de Saida também e lançada a quantidade que é vendida certo, eu gostaria de saber como fazer para que a tabela de estoque no campo Saldo receba o saldo que tem no estoque, pois não estou conseguindo fazer isso.
Obs: uso Delphi5 e tabela Paradox
obrigado.
Anonymous
Curtidas 0
Respostas
Aroldo Zanela
16/03/2003
Ola galera,
Estou desenvolvendo um sistema de controle de estoque gostaria de uma ajuda: tenho as seguintes tabelas : tbCadastro, tbEntrada, tbSaida, tbEstoque, quando é cadastrado um produto insere-se o codigo, a descrição e a unidade, não é colocado a quantidade mesma é lançada quando dou entrada do produto, na tabela de Saida também e lançada a quantidade que é vendida certo, eu gostaria de saber como fazer para que a tabela de estoque no campo Saldo receba o saldo que tem no estoque, pois não estou conseguindo fazer isso.
Obs: uso Delphi5 e tabela Paradox
obrigado.
No evento afterpost da tabela de entrada:
begin
if not tbEstoque.FindKey([tbEntradaCOD_PRODUTO.Value]) then
begin
tbEstoque.Append
tbEstoqueESTOQUE.Value := 0; // Evitar problemas com Null
end else
tbEstoque.Edit;
tbEstoqueESTOQUE.Value := tbEstoqueESTOQUE.Value + tbEntradaQTDE.Value;
end;
Isto é apenas uma dica, pois você tem que se preocupar se houve alteração e exclusão de entrada ou saída (cancelamento) etc.
GOSTEI 0