[RESOLVIDO] UPC: Fechar DIALOG-BOX

Bom dia Pessoal!

Alguém sabe como eu faço para, via UPC, “fechar” uma janela DIALOG-BOX?

Tentei todas as opções abaixo (algumas eu diria que até apelei, rs), e eu verifico que passa por todas elas (coloco um MESSAGE depois), porém a janela permanece na tela, e somente fecha quando clica em um dos botões da tela(Fechar, Ok, Close).

Código:

APPLY "CHOOSE" TO wh-bt-ok.

APPLY "WINDOW-CLOSE" TO CURRENT-WINDOW.

APPLY "WINDOW-CLOSE" TO p-wgh-frame.

APPLY "CLOSE" TO p-wgh-frame.

APPLY "END-ERROR" TO p-wgh-frame.

RUN dispatch IN p-wgh-frame ( INPUT 'destroy':U ).

RUN dispatch IN p-wgh-frame ( INPUT 'exit':U ) .

RETURN ERROR.

DELETE PROCEDURE p-wgh-frame.

Obrigada!

Abb,

Olá Eugênio,
Tudo bem?

Consegui resolver com essa dica que me deu!

OBS: Postei o código no tópico "Alterar DEFAULT de programa EMS".

Vlw mesmo!

Abb,