Regra por processo - Numero novo cadastro

Definir Cursor Cur_R034FUN;

Cur_R034FUN.sql "SELECT NUMCAD FROM R034FUN ORDER BY NUMCAD DESC";
Cur_R034FUN.AbrirCursor();
  Se (Cur_R034FUN.Achou)
    Inicio
      yult = Cur_R034FUN.NumCad;
      R034FUN.NumCad = yult + 1;
    Fim;
Cur_R034FUN.FecharCursor();