SET TERM ^ ;

CREATE OR ALTER trigger ttbregistro_orcamento_item_b09d for tbregistro_orcamento_item
active before delete position 9
AS
declare variable HISTORICO VARCHAR(500);
begin
    HISTORICO = '';

    IF(OLD.ID > 0) THEN
    BEGIN
        HISTORICO = 'ITEM: '||FN_LPAD(OLD.ID, 4, '0')||' EXCLUÍDO;';
    END

    IF(HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBREGISTRO_ORCAMENTO', OLD.ORCAMENTO_ID, HISTORICO);
    END
end
^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger tbregistro_orcamento_item_bi0 for tbregistro_orcamento_item
active before insert position 0
AS
declare variable HISTORICO VARCHAR(500);
begin
    HISTORICO = '';

    IF(NEW.ID > 0) THEN
    BEGIN
        HISTORICO = 'ITEM: '||FN_LPAD(NEW.ID, 4, '0')||' INCLUÍDO;';
    END

    IF(HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBREGISTRO_ORCAMENTO', NEW.ORCAMENTO_ID, HISTORICO);
    END
end
^

SET TERM ; ^

