Fórum Como dar baixa em estoque com banco (ACCESS) #243520
17/07/2004
0
É o seguinte estou desenvolvendo uma controle de vendas em Delphi 7 e banco Access, mais não estou conseguindo dar baixa em estoque usando este banco, tenho uma tabela de vendas e uma de produtos ou seja quando for realizada uma venda, tem q dar baixa na tabela de produtos no campo quantidade.
Ate tenho uma certa experiência em Paradox mais access não tenho.
Se alguém puder me ajudar me passando um código ficarei grato.
Desde já agradeço. :lol: :lol: :lol:
Jackell Alves
E_mail: jackell_alves@hotmail.com
Vitoreduardo
Curtir tópico
+ 0Posts
17/07/2004
Diorgenes175
Cria duas variáveis inteiras (uma para armazenar o código do produto vendido e outra para armazenar a qtde vendida):
Procedure... var CodProd, Qtde: Integer; begin CodProd:= StrToInt (EdtCodProd.Text); Qtde:= StrToInt (EdtQtde.Text); DataModule1.TbProdutos.Locate (´Codigo´, CodProd,[loPartialKey]); With DataModule1.TbProdutos Do begin Open; Edit; First; DataModule1.TbProdutosQtde.AsInteger := DataModule1.TbProdutosQtde.AsInteger - Qtde; Post; Refresh; Close; End; end;
mande resposta se funcionar ou não
Diórgenes Tavares
Gravataí - RS
Gostei + 0
17/07/2004
Diorgenes175
Gostei + 0
17/07/2004
Sandra
Diorgenes,
:idea: Uma dica: quando estiver redigindo sua mensagem, logo abaixo da caixa de texto Assunto, clique no botão [ CODE ] (observe que não tem os espaços), digite seu código e clique novamente para fechar a tag.
Simples, não é?
[b:500c52af30]PS:[/b:500c52af30] Editei sua mensagem. :wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)