CREATE trigger ttbestoque_cli_item_prev_b02i for tbestoque_cliente_item_previsao
active before insert position 2
AS
DECLARE VARIABLE ID INTEGER;
DECLARE VARIABLE PERIODO_F VARCHAR(10);
BEGIN
    FOR
        SELECT
           ID

        FROM TBESTOQUE_CLIENTE_ITEM_PREVISAO T
        WHERE T.ESTOQUE_CLIENTE_ITEM_ID = NEW.ESTOQUE_CLIENTE_ITEM_ID
        AND T.ESTOQUE_CLIENTE_ID = NEW.ESTOQUE_CLIENTE_ID
        AND T.PERIODO = NEW.PERIODO
        AND T.ID <> NEW.ID

    INTO
    :ID
    DO BEGIN
        IF(:ID > 0) THEN
        BEGIN
            :PERIODO_F = FN_DATE(NEW.PERIODO, 'MYYYY');

            EXCEPTION "..." 'PREVISAO '||:PERIODO_F||' JA CADASTRADA PARA ESSE ITEM';
        END

    END
END;