Fórum Mostrar Exception #340693

SET TERM ^ ;

CREATE PROCEDURE SP_BAIXAESTOQUE (
    cod integer,
    quant numeric(15,2))
as
declare variable qtatual numeric(15,2);
begin
  select e.quantidade from estoque E where e.codproduto = :cod
  into :qtatual;
 if (:qtatual > :quant ) then
   begin
     update estoque E set E.quantidade = :qtatual - :quant
     where (E.codproduto = :cod);
   end
 else
  begin
    exception retiraestoque;
  end
end^

SET TERM ; ^

GRANT SELECT,UPDATE ON ESTOQUE TO PROCEDURE SP_BAIXAESTOQUE;

GRANT EXECUTE ON PROCEDURE SP_BAIXAESTOQUE TO SYSDBA;

CREATE EXCEPTION RETIRAESTOQUE ´quantidade excedente venda negada´;

   try
     begin
      spBaixa.ParamByName(´cod´).AsInteger:= StrToIntDef(Edit1.Text,0);
      spBaixa.ParamByName(´quant´).AsInteger:= StrToIntDef(Edit2.Text,0);
      spbaixa.ExecProc;
      frmDM.TEstoque.Refresh;
     end
   except
     spbaixa.Transaction.RollbackRetaining;
   end;