Fórum Stored procedure para atualizar outra tabela #54073

create procedure atualiza_estoque (
    id_produto integer,
    tipo_mov char(1),
    quantidade numeric(10,2))
returns (
    movimento_ok boolean)
as
begin
  if tipo_mov = ´E´ then
    update pecas set saldo = saldo + :quantidade where id_produto = :id_produto
  else
    update pecas set saldo = saldo - :quantidade where id_produto = :id_produto;

  if (rows_affected = 0) then
    movimento_ok = false
  else
    movimento_ok = true;

  suspend;
end

create trigger tgINCLUI_MOVIMENTO for movimento
active after insert position 0
as
begin
  atualiza_estoque( new.id_produto, new.tipo, new.quantidade );
end

create trigger tgEXCLUI_MOVIMENTO for movimento
active after delete position 0
as
begin
  if old.tipo = ´E´ then
    atualiza_estoque( old.id_produto, ´S´, old.quantidade )
  else
    atualiza_estoque( old.id_produto, ´E´, old.quantidade );
end