SET TERM ^ ;

CREATE trigger ttbpdv_caixa_b02d for tbpdv_caixa
active before delete position 2
AS
DECLARE VARIABLE PDV_MOVIMENTO_CAIXA INTEGER;
BEGIN
    :PDV_MOVIMENTO_CAIXA = COALESCE((SELECT FIRST 1 T.ID FROM TBPDV_MOVIMENTO_CAIXA T WHERE T.PDV_CAIXA_ID = OLD.ID), 0);

    IF(:PDV_MOVIMENTO_CAIXA > 0) THEN
    BEGIN
        EXCEPTION"..."'NAO E POSSIVEL EXCLUIR ESSE CAIXA POIS JA EXISTEM MOVIMENTACAO VINCULADAS. OPERACAO CANCELADA.';

    END
    
    
END
^

SET TERM ; ^

