SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_preco_b01d for tbmodelo_preco
active before delete position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

  HISTORICO = '';

  IF(OLD.ID > 0) THEN
  BEGIN
    HISTORICO = HISTORICO||'REGISTRO EXCLUIDO - EST: '||OLD.ESTABELECIMENTO_CODIGO||' TAB: '||OLD.TABELA_ID||' MOD: '||OLD.MODELO_CODIGO||' PRECO: '||OLD.PRECO_VENDA;
  END

  IF(HISTORICO <> '') THEN
  BEGIN
    EXECUTE PROCEDURE SPI_HISTORICO('TBMODELO_PRECO', OLD.ID, HISTORICO);
  END
END
^

SET TERM ; ^

