SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_setor_b01iu for tbmodelo_setor
active before insert or update position 0
AS
DECLARE VARIABLE SETOR_CODIGO INTEGER;
BEGIN
    IF((INSERTING OR UPDATING) AND NEW.ESTEIRA_PRODUCAO = '1') THEN
        BEGIN
            FOR
                SELECT FIRST 1
                    A.SETOR_CODIGO
                FROM TBMODELO_SETOR A
                WHERE A.MODELO_CODIGO = NEW.MODELO_CODIGO
                AND A.SETOR_CODIGO <> NEW.SETOR_CODIGO
                AND A.ORDEM <> NEW.ORDEM
                AND A.ESTEIRA_PRODUCAO = '1'
            INTO :SETOR_CODIGO
            DO
            BEGIN
                EXCEPTION "..." 'JA EXISTE UM REGISTRO COM A OPÇÃO: <p style="margin-bottom: -10px;"><b>REGISTRA PRODUÇÃO PARA O GP</b> MARCADA</p>';
            END

        END

    IF((INSERTING OR UPDATING) AND NEW.ESTOQUE = '1') THEN
        BEGIN
            FOR
                SELECT FIRST 1
                    A.SETOR_CODIGO
                FROM TBMODELO_SETOR A
                WHERE A.MODELO_CODIGO = NEW.MODELO_CODIGO
                AND A.SETOR_CODIGO <> NEW.SETOR_CODIGO
                AND A.ORDEM <> NEW.ORDEM
                AND A.ESTOQUE = '1'
            INTO :SETOR_CODIGO
            DO
            BEGIN
                EXCEPTION "..." 'JA EXISTE UM REGISTRO COM A OPÇÃO: <p style="margin-bottom: -10px;"><b>REGISTRA ESTOQUE</b> MARCADA</p>';
            END

        END

END

^

SET TERM ; ^

