Fórum Como dar baixa em estoque com banco (ACCESS) #243520

17/07/2004

0

:D Ae galera blz?
É 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

Vitoreduardo

Responder

Posts

17/07/2004

Diorgenes175

Faz assim:

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


Responder

Gostei + 0

17/07/2004

Diorgenes175

cara, fiz esse código c identação, mas não saiu... desculpe.


Responder

Gostei + 0

17/07/2004

Sandra

cara, fiz esse código c identação, mas não saiu... desculpe.

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:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar