Fórum Baixa em estoque... ???? #184093

Estou utilizando o seguinte codigo em meu sistema :

query5.SQL.Clear;
query5.SQL.Add (´update produtos set estoque = estoque - ´+QuotedStr(dbedit3.text)+´ where codigoprod = ´+QuotedStr(dbedit2.text)+´´);
query5.ExecSQL;

para saber se o estoque está chegando ao fim eu coloquei uma consulta simples em sql q pega o produto q a pessoa está comprando e joga em um dbedit, no meu caso eu tenho o campo estoque e estoque minimo

então fica assim :

Var
estoque : integer
estoque_min : integer
Begin
estoque := strtoint(dbedit1.text);
Estoque_min := strtoint(dbedit2.text);
If estoque < estoque_min then
begin
showmessage(´O Produto Está Abaixo de seu Estoque Minimo!´);
end;
end;



Não sei se é prático da maneira que vc queria mas pelo menos pra mim funciona sem problemas!

[]´s