Como dar baixa em estoque com banco (ACCESS)

Delphi

17/07/2004

: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

Curtidas 0

Respostas

Diorgenes175

Diorgenes175

17/07/2004

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


GOSTEI 0
Diorgenes175

Diorgenes175

17/07/2004

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


GOSTEI 0
Sandra

Sandra

17/07/2004

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:


GOSTEI 0
POSTAR