Loop não funciona

[pc_delphi]

Tenho esse loop aí em baixo:

Selecionar tudo

open cr_seq(vfontex,vfontey);
  fetch cr_seq into c_seq;
  if cr_seq%found then 
    loop
      vnivel := vnivel + 1;
      update redeiluminacao set nivel = vnivel where instalacao = 'ET0013' and nivel = 0 and fontex = vfontex and numid = c_seq.numid;
      vcontador := vcontador - 1;
      exit when vcontador = 0;
    end loop;
  end if;

Abri meu cursor e fiz o loop. O que passa é que o meu update só é realizado uma única vez. A variável vcontador ela vem com valores entre 2 e 4(2,3 ou 4), logo o loop deveria atualizar a tabela redeiluminacao 2,3 ou 4 vezes, mas só acontece uma única vez. O que está errado?

[dr_gori]

Coloca uns DBMS_OUTPUT pra ver o que está em cada variável.

[diegolenhardt]

esta iniciando vcontador com qual valor?

[SergioLBJr]

Cara pode tar dando erro no teu if if cr_seq%found , pode acontecer do teu cursor não encontrar nada e então não vai atualizar nada.

Pode tar parando na clausula where do teu update, e atualizando o contador.

Posta todo o código aí, pois só neste trecho é dificil de dizer onde está o problema.