Liberar registro com exclusive-lock

Discussão em 'Progress 4GL' iniciado por Bruno Silva, Novembro 21, 2011.

  1. Bruno Silva

    Bruno Silva Sem Pontuação

    Lima,

    maravilha, funcionou....

    agora preciso implementar essa lógica no meu programa.

    Abraços....Obrigado pela ajuda!
  2. emr

    emr Membro Participativo

    Vc ja pensou em usar sequences?
  3. Bruno Silva

    Bruno Silva Sem Pontuação

    Amigão,

    como funciona o sequences?

    Obrigado...
  4. emr

    emr Membro Participativo

  5. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Colega, dependendo do caso, use o for each, propriamente ele já abre um transaction (bloco transacao).
    Que no caso liberara o registro assim que a rotina chega no end (for each).

    Código:
    for each numpedop where numpedop.emp-codemp = codemp exclusive-lock.
        assign numpedop.num-pedop = numpedop.num-pedop + 1
               i-pedop            = numpedop.num-pedop.
    end.
    
    DO TRANSACTION:
        create cadpedpre.
        assign cadpedpre.ped-numped = i-pedop.
        
        update cadpedpre.emp-codemp
        cadpedpre.ped-numped
        cadpedpre.ped-iteped
        cadpedpre.ped-datdig with no-validate.
    END.
    
  6. Bruno Silva

    Bruno Silva Sem Pontuação

    Rodrigo,

    já resolvi o caso com o find...

    mas com for each também funciona...

    Obrigado pela ajuda.

    Abs.

Compartilhe esta Página