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.
Os handles apresentados por esse programa podem ser visualizados na ferramenta "Procedures" no PRO*Tools.
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.
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.