ALTER TABLE TBFAMILIA_MODELO_ALOCACAO
ADD ID INTEGER;

CREATE SEQUENCE GTBFAMILIA_MODELO_ALOCACAO;

UPDATE TBFAMILIA_MODELO_ALOCACAO T SET
    T.ID = GEN_ID(GTBFAMILIA_MODELO_ALOCACAO, 1)
WHERE
    T.ID IS NULL;

ALTER TABLE TBFAMILIA_MODELO_ALOCACAO ALTER ID SET NOT NULL;

/* 
ALTER TABLE TBFAMILIA_MODELO_ALOCACAO
ADD CONSTRAINT PK_TBFAMILIA_MODELO_ALOCACAO
PRIMARY KEY (ID); 
*/
 
SET TERM ^ ;

CREATE OR ALTER trigger ttbfamilia_modelo_aloc_b01i for tbfamilia_modelo_alocacao
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
    HISTORICO = '';

    IF (COALESCE(NEW.ID,0) = 0) THEN
    BEGIN
        NEW.ID = GEN_ID(GTBFAMILIA_MODELO_ALOCACAO,1);
    END

    IF (NEW.FAMILIA_ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Familia vinculada na Alocacao de MP: ' || FN_LPAD(NEW.FAMILIA_MODELO_ID,4,'0');
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBFAMILIA', NEW.FAMILIA_ID, HISTORICO);
    END
END
^

SET TERM ; ^