1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Duvida Deletar Handles abertos

Discussão em 'Progress 4GL' iniciado por afarns, Fevereiro 19, 2020.

  1. afarns

    afarns Sem Pontuação

    Boa tarde Srs,

    Estou com alguns problemas onde um fonte de terceiro ao qual eu só tenho o .r instância alguns handles persistent e não os finaliza.
    Isso está me gerando alguns problemas de lock em tabelas.
    Gostaria de saber se alguém sabe como posso finaliza-los de um programa meu, tendo como base a leitura dos handles que tenho aberto na sessão.

    Faço a leitura dos handles da sessão com o seguinte código:

    Código:
    DEFINE VARIABLE hProcedure AS HANDLE NO-UNDO.
    
    hProcedure = SESSION:FIRST-PROCEDURE.
    
    DO WHILE VALID-HANDLE(hProcedure):
                                                              skip
        MESSAGE hProcedure:HANDLE AS INTEGER                  skip
                hProcedure:FILE-NAME                          skip
                hProcedure:NAME                               skip
                hProcedure:TRANSACTION:IS-OPEN                skip
                hProcedure:INSTANTIATING-PROCEDURE AS INTEGER skip
                hProcedure:INSTANTIATING-PROCEDURE:NAME       skip
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    END.
    Porém não conseguir achar um jeito de deletar os handles, alguem consegue auxiliar ?

    Desde já, muito obrigado.
  2. afarns

    afarns Sem Pontuação

    Os handles apresentados por esse programa podem ser visualizados na ferramenta "Procedures" no PRO*Tools.
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    delete procedure não funciona ? ou delete object ?
  4. afarns

    afarns Sem Pontuação

    Tentei esses caras, mas o problema é que não sei qual a propriedade do handle que eu passo para indicar qual handle deve ser deletado, tentei as propriedades que estão no fonte acima, mas nenhuma delas o programa entende qual é o handle que estou tentando deletar.
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    tentou desse jeito ????????

    Código:
    DEFINE VARIABLE hProcedure AS HANDLE NO-UNDO.
    define variable handleObject as handle no-undo.
    
    assign hProcedure = SESSION:FIRST-PROCEDURE.
    
    DO WHILE VALID-HANDLE(hProcedure):
        MESSAGE hProcedure:HANDLE AS INTEGER                  skip
                hProcedure:FILE-NAME                          skip
                hProcedure:NAME                               skip
                hProcedure:TRANSACTION:IS-OPEN                skip
                hProcedure:INSTANTIATING-PROCEDURE AS INTEGER skip
                hProcedure:INSTANTIATING-PROCEDURE:NAME       skip
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
        /* tentou assim ................................. */
        assign handleProgram = hProcedure:handle.
        delete obeject handleProgram.
    END.

Compartilhe esta Página