Fórum Entrada e Saída de Mercadoria #162618
26/05/2003
0
Tenho um formulário onde cadastro os estoques que entram(Cad/Estoque).
Num outro formulário, cadastro a venda a um determinado cliente que busco do BD Cad/Clientes e busco também a mercadoria que está sendo vendida no Cad/Estoques.
O que quero é que ao buscar a mercadoria no Cad/Estoque, esta seja inserida nesse cadastro de saída e baixado a quantidade no Cad/Estoque.
Como fazer isso? :?:
Delphi 5
BD: Paradox
Grato.
Num outro formulário, cadastro a venda a um determinado cliente que busco do BD Cad/Clientes e busco também a mercadoria que está sendo vendida no Cad/Estoques.
O que quero é que ao buscar a mercadoria no Cad/Estoque, esta seja inserida nesse cadastro de saída e baixado a quantidade no Cad/Estoque.
Como fazer isso? :?:
Delphi 5
BD: Paradox
Grato.
Osmar Cardoso
Curtir tópico
+ 0
Responder
Posts
26/05/2003
Wallacest
Oi, vc pode fazer um loop na talela tipo:
Var Registro;
begin
REgistro := TSaida_Cod_Registro.AsInteger;
TEstoque.First; // coloca no inicio
While not DM.TEstoque.Eof Do // enquanto nao chegar no final
begin
If TEstoqueCodigo.Asinteger = Registro then
begin
TEstoque.Edit;
TEstoqueAtual.AsInteger:= TEstoqueAtual.AsInteger - TSaidaQuantidade.AsInteger;
TEStoque.post;
end;
TEstoque.Next; / nao encontrando avança para proximo produto
Pega o codigo do registro na saida e procura na tabela estoque e se encontrar diminui do valor atual.
Qualquer duvida, comunique
Var Registro;
begin
REgistro := TSaida_Cod_Registro.AsInteger;
TEstoque.First; // coloca no inicio
While not DM.TEstoque.Eof Do // enquanto nao chegar no final
begin
If TEstoqueCodigo.Asinteger = Registro then
begin
TEstoque.Edit;
TEstoqueAtual.AsInteger:= TEstoqueAtual.AsInteger - TSaidaQuantidade.AsInteger;
TEStoque.post;
end;
TEstoque.Next; / nao encontrando avança para proximo produto
Pega o codigo do registro na saida e procura na tabela estoque e se encontrar diminui do valor atual.
Qualquer duvida, comunique
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)