SET TERM ^ ;

CREATE trigger ttbcheque_pdv_item_b02i for tbcheque_pdv_item
active before insert position 2
AS
DECLARE VARIABLE NUMERO_CHEQUE_EXISTENTE INTEGER;
BEGIN

    :NUMERO_CHEQUE_EXISTENTE = COALESCE((SELECT FIRST 1 T.ID
                    FROM TBCHEQUE_PDV_ITEM T
                    WHERE T.CHEQUE_PDV_ID = NEW.CHEQUE_PDV_ID
                    AND T.SEQUENCIA = NEW.SEQUENCIA
                    AND T.ID <> NEW.ID), 0);

    IF(:NUMERO_CHEQUE_EXISTENTE > 0) THEN
    BEGIN
        EXCEPTION "..."'NUMERO DO CHEQUE '||NEW.SEQUENCIA||' JA VINCULADO. NUMEROS DO CHEQUE DEVEM SER DIFERENTES.';

    END

END
^

SET TERM ; ^

