CREATE OR ALTER TRIGGER TTBTABELA_PRECO_B01D FOR TBTABELA_PRECO
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE COUNT_REGISTERS_MODELO INTEGER;
DECLARE VARIABLE COUNT_REGISTERS_PRODUTO INTEGER;

BEGIN
    SELECT COUNT(T.ID) FROM TBMODELO_PRECO T WHERE T.TABELA_ID = OLD.ID INTO :COUNT_REGISTERS_MODELO;
    
    IF(:COUNT_REGISTERS_MODELO > 0) THEN
    BEGIN
        EXCEPTION "..." 'TABELA DE PRECO JA VINCULADA EM MODELOS. EXCLUSAO CANCELADA!';
    END

    SELECT COUNT(T.ID) FROM TBPRODUTO_PRECO T WHERE T.TABELA_ID = OLD.ID INTO :COUNT_REGISTERS_PRODUTO;
    IF(:COUNT_REGISTERS_PRODUTO > 0) THEN
    BEGIN
        EXCEPTION "..." 'TABELA DE PRECO JA VINCULADA EM PRODUTOS. EXCLUSAO CANCELADA!';
    END

    SELECT COUNT(ZT.ID) FROM TBCLIENTE_MODELO_PRECO ZT WHERE ZT.TABELA_ID = OLD.ID INTO :COUNT_REGISTERS_MODELO;

    --EXCEPTION "..." ' ENCONTRADOS '||:COUNT_REGISTERS_MODELO;
    
    IF(:COUNT_REGISTERS_MODELO > 0) THEN
    BEGIN
        EXCEPTION "..." 'TABELA DE PRECO JA VINCULADA EM MODELOS. EXCLUSAO CANCELADA!';
    END

    SELECT COUNT(XT.ID) FROM TBCLIENTE_PRODUTO_PRECO XT WHERE XT.TABELA_ID = OLD.ID INTO :COUNT_REGISTERS_PRODUTO;
    --EXCEPTION "..." ' ENCONTRADOS '||:COUNT_REGISTERS_PRODUTO;
    IF(:COUNT_REGISTERS_PRODUTO > 0) THEN
    BEGIN
        EXCEPTION "..." 'TABELA DE PRECO JA VINCULADA EM PRODUTOS. EXCLUSAO CANCELADA!';
    END
END