SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_b03u for tbmodelo
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
begin
    IF(NEW.GRUPO_PRODUTO_ID IS DISTINCT FROM OLD.GRUPO_PRODUTO_ID AND NEW.GRUPO_PRODUTO_ID = 0) THEN
    BEGIN
        HISTORICO = 'GRUPO DE PRODUTO '||OLD.GRUPO_PRODUTO_ID||' DESVINCULADO';
    END

    IF(HISTORICO <> '') THEN
    begin
        EXECUTE PROCEDURE SPI_HISTORICO('TBMODELO',OLD.CODIGO,HISTORICO);
    end 
end
^

SET TERM ; ^

