[RESOLVIDO] Epc

Eae glera, estou utilizando uma Epc que é chamada no initialize do programa fp1500, gostaria que a mesma fechasse o programa fp1500 como posso fazer isto??? Tentei rodando o programa fp1500 persistente numa handle dando um apply "close" na mesma porém não aconteceu nada.... vlw

Nao tenho o fp1500, mas fiz o seguinte no cd0204, ao abrir ele, peguei o handle dele e tentei pegar o ultimo evento na inicializacao dele e entao destrui a interface e funcionou.

DEFINE INPUT PARAMETER p-ind-event as char no-undo.
DEFINE INPUT PARAMETER p-ind-object as char no-undo.
DEFINE INPUT PARAMETER p-wgh-object as handle no-undo.
DEFINE INPUT PARAMETER p-wgh-frame as widget-handle no-undo.
DEFINE INPUT PARAMETER p-cod-table as char no-undo.
DEFINE INPUT PARAMETER p-row-table as rowid no-undo.

DEFINE NEW GLOBAL SHARED VAR h_cd0204 AS WIDGET-HANDLE NO-UNDO.

DEFINE VAR c-objeto AS CHAR NO-UNDO.

IF VALID-HANDLE(p-wgh-object) THEN DO:
assign c-objeto = entry(num-entries(p-wgh-objectrivate-data,"~/"),
p-wgh-objectrivate-data, "~/").
END.

if p-ind-object = "CONTAINER" AND
p-ind-event = "ENABLE" AND
c-objeto = "cd0204.w" then do:
assign h_cd0204 = p-wgh-object.
END.

if p-ind-event = "AFTER-CHANGE-PAGE" AND
p-ind-object = "CONTAINER" then do:
RUN adm-destroy IN h_cd0204.
END.

Na realidade o que eu fiz foi utilizando uma upc, no entanto, se é para fazer no initialize do programa, acredito que via UPC é mais simples, de qualquer modo, se precisar de algo diferente postae detalhando mais o caso.

Eae Alexandre, cara funcionou perfeitamente, muito obrigado

só pra constar, tinha arrumado outra forma , porém mais demorada, que era executar o
assign p-wgh-frame:sensitive = false.

mas da sua maneira ficou mais eficiente, vlw abrçs

aproveitando, alguém sabe como faço para encerrar um fórum aqui no 4each???? vlw

Alex, cara essa minha validação ocorre no initialize do programa fp1500, ou seja, durante o initialize eu faço a validação na minha Upc, e a mesma realiza o adm-destroy. Até então tudo certo, o programa é fechado pela Upc, porém ao tentar acessar novamente o menu da fp1500, ele me dá o seguinte erro:

"Invalid or inappropriate handle value given to RUN .... IN statement. Procedure "local-initialize fp1500.w"".

e depois vem a msgm

"handle inválido. Não inicializado ou aponta para algum objeto excluído".

abe o que poderia ser????

Obs: Eu executo o destroy no evento INITIALIZE, que é o último a ser executado.


Quanto ao tópico, só gostaria de saber se tem com oencerrar, pois sou usuário do vbmania, e lá ao obter uam resposta a uma dúvida, eu encerro o tópico e aponto para quem deu a solução