create or replace procedure SOMA_VENDAS_CURSOR_WHILE
(p_VENDA_LIMITE IN produto_venda_exercicio.valor_total%type, p_ID_RETORNO OUT produto_venda_exercicio.id%type)
IS
v_ID produto_venda_exercicio.id%type := 1;
v_VLR_TOTAL produto_venda_exercicio.valor_total%type;
v_VENDA produto_venda_exercicio.valor_total%type := 0;
CURSOR cur_VENDA IS SELECT ID FROM produto_venda_exercicio;
BEGIN
OPEN cur_Venda;
FETCH cur_Venda INTO v_ID;
WHILE cur_Venda%FOUND LOOP
SELECT VALOR_TOTAL INTO v_VLR_TOTAL FROM PRODUTO_VENDA_EXERCICIO WHERE ID = v_ID;
v_VENDA := v_VENDA + v_VLR_TOTAL;
FETCH cur_Venda INTO v_ID;
END LOOP;
CLOSE cur_Venda;
END;
