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.ID <> NEW.ID
                AND A.MODELO_CODIGO = NEW.MODELO_CODIGO
                AND A.ESTEIRA_PRODUCAO = '1'
            INTO :SETOR_CODIGO
            DO
            BEGIN
                EXCEPTION "..." 'JA EXISTE UM REGISTRO COM A OPCAO: <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.ID <> NEW.ID
                AND A.MODELO_CODIGO = NEW.MODELO_CODIGO
                AND A.ESTOQUE = '1'
            INTO :SETOR_CODIGO
            DO
            BEGIN
                EXCEPTION "..." 'JA EXISTE UM REGISTRO COM A OPCAO: <P STYLE="MARGIN-BOTTOM: -10PX;"><B>REGISTRA ESTOQUE</B> MARCADA</P>';
            END

        END

END
^

SET TERM ; ^

