Fórum Código bloqueia operação de retirada #321023

var
 form1 : TForm1;
 StqAtual : Integer; //aqui defino um variavel que vai funcionar em todo formulário

 StqAtual := 0;
 TabelaProduto.Locate(´Codigo´,TabelaSaidaCodProduto.AsString,[]);//Onde CodProduto o campo onde é lançado o código do produto que vai receber a saída.
 //Feito isso eu também já pego a quantidade em estoque atual e jogo em uma variável qualquer, definida de form global
if TabelaProdutoEstoque.AsInteger <= 0 then
 begin
 ShowMessage(´Produto em baixa no estoque´);
 StqAtual := 0;
 Exit;
 end
else
 begin
 StqAtual := TabelaProdutoEstoque.AsInteger;//aqui passo o valor atual do estoque para minha variavel
 end

var
QtdAtual,QtdSai: Integer;
begin
 try
 if StrToInt(Edit1.Text)>0 then
  begin
   if StqAtual >= StrToInt(Edit1.Text) then
     begin
     //Código para tratar quando a quantidade informada for uma quantidade válida
     end
   else
     begin
      ShowMessage(´O valor informado é maior do que a quantidade Existente no estoque. Proceda a correção´);
      ShowMessage(´Estoque atual: ´+IntToStr(StqAtual));
      Exit;
     end;
  end;
 Except
 on E: Exception do
 MessageDlg(´Valor informado não é uma valor válido ´+e.Message,MtError,[MbOk],0);
 end;