Reservar registros para alteração posterior

[faccParticipante]

Vou fazer alguns testes aqui, assim que tiver uma posição volto a postar.

[faccParticipante]

Muito obrigado a todos que me deram essa força.
Está funcionando perfeitamente agora.

Vlw pessoal.

FOR rNrSorte IN 1 .. P_QTD loop
BEGIN
LOCK TABLE CYBELAR_NROSORTE IN EXCLUSIVE MODE;

  SELECT NRO.NROSORTE
    INTO retorno_nrsorte
    FROM CYBELAR_NROSORTE NRO
   WHERE LOJA IS NULL
     AND FLGUSO = 0
     AND ROWNUM <= 1
     FOR UPDATE NOWAIT;

  ListaNrsorte := retorno_nrsorte || '|' || ListaNrsorte;

  UPDATE CYBELAR_NROSORTE
     SET FLGUSO      = 1,
         LOJA        = P_LOJA,
         PDV_CAIXA   = P_PDV,
         DATANRSORTE = SYSDATE
   WHERE NROSORTE = retorno_nrsorte;
  COMMIT;
EXCEPTION
  WHEN look_error THEN
    NULL;
END;</code>

[Autor]

Posts