Perguntas Como encerrar uma tela que esta aberta quando clico no botão gerar?

Olá a todos do fórum tudo bem?

Eu tenho uma tela em ADVPL que basicamente faz o seguinte:

Ela lê minha pergunta e quando clico em consultar é apresentado uma MSDIALOG oDlg. Nessa MSDIALOG tem um botão de nova Consulta, só que ao clicar ela não encerra a MSDIALOG anterior ou seja, ela fica sobrepondo uma em cima da outra.

Como posso fazer para corrigir isso?

Fonte

DEFINE MSDIALOG oDlg TITLE cTitulo FROM 0,0 TO 600,1335 PIXEL

// Primeira opção para montar o listbox.
@ 20,20 LISTBOX oLbx FIELDS HEADER ;
"Filial","Nota","Nota de Origem";
SIZE 100, 100 OF oDlg PIXEL

oLbx:SetArray( aSC6 )
oLbx:bLine := {||{aSC6[oLbx:nAt,1],;
aSC6[oLbx:nAt,2],;
aSC6[oLbx:nAt,3],}}


oLbx := TWBrowse():New(0,0,690,295,,CabecalhoSC6,, oDlg,,,,,,,,,,,,.F.,,.T.,,.F.,,,)
oLbx:SetArray( aSC6 )
oLbx:bLine := {||aEval(aSC6[oLbx:nAt],{|z,w| aSC6[oLbx:nAt,w] } ) }
oLbx:Refresh()

@ 250,15 BUTTON "Nova Pesquisa" SIZE 060, 015 PIXEL OF oDlg ACTION consultaNotaRemessa(oDLG)

ACTIVATE MSDIALOG oDlg

return

Alguém consegue me ajudar com isso?

Opa, bom dia. Obrigado por responder.

Eu já havia tentado isso e não deu certo.

Opa boa tarde.

Tentei o que sugeriu também não funcionou...