SET TERM ^ ;

CREATE OR ALTER trigger ttbpdv_cfe_forma_pagamento_b07i for tbpdv_cfe_forma_pagamento
active before insert position 7
AS
DECLARE VARIABLE NFE_TIPPAG VARCHAR(10);
BEGIN
    IF(NEW.PAGAMENTO_FORMA_ID > 0) THEN
    BEGIN
        :NFE_TIPPAG = COALESCE((SELECT FIRST 1 TRIM(T.NFE_TIPPAG) FROM TBPAGAMENTO_FORMA T WHERE T.CODIGO = NEW.PAGAMENTO_FORMA_ID), '');

        IF((:NFE_TIPPAG = '05' OR :NFE_TIPPAG = '21') AND COALESCE(NEW.PDV_DEVOLUCAO_TROCA_ID, 0) = 0 AND COALESCE(NEW.CREDITO_LOJA_AUTOMATICO, 0) = 0) THEN
        BEGIN
            EXCEPTION "..."'FORMA DE PAGAMENTO CREDITO LOJA EXIGE REFERENCIAMENTO DE DEVOLUCAO/TROCA, POR FAVOR, ENTRE EM CONTATO COM O SUPORTE TECNICO.';
        END

    END
END
^

SET TERM ; ^

