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

Sem problemas. Segue fonte. Só vai ter que criar as perguntas...

#include 'totvs.ch'
#include 'TopConn.ch'

user function CocNotaRemessa()

consultaNotaRemessa()

RETURN

static function consultaNotaRemessa(pDlg)


Local QuerySC6
Local cTitulo := "Nota Remessa"
Local cAliasSC6 := GetNextAlias()
local aSC6 := {}

Local CabecalhoSC6 := {"Filial","Nota de Remessa","Nota de Origem"}

if pDlg != NIL

pDlg:End()

ENDIF

Pergunte("COCNTREM",.T.)


QuerySC6 := "SELECT SC6.C6_FILIAL, SC6.C6_NOTA, SC6.C6_NFORI "
QuerySC6 += "FROM " + RetSqlName("SC6") + " SC6 "
QuerySC6 += "WHERE "
QuerySC6 += "SC6.D_E_L_E_T_ ='' "
QuerySC6 += "AND SC6.C6_NOTA = '" +MV_PAR01+ "'
QuerySC6 += "AND SC6.C6_NOTA <>'' "
QuerySC6 += "OR SC6.C6_NFORI = '" +MV_PAR02+ "'
QuerySC6 += "AND SC6.C6_NFORI <>'' "
QuerySC6 := ChangeQuery(QuerySC6)

TcQuery QuerySC6 Alias & cAliasSC6 New
DbSelectArea(cAliasSC6)
(cAliasSC6)->(dbGoTop())


while !(cAliasSC6)->(EOF())

AADD(aSC6,{(cAliasSC6)->C6_FILIAL,(cAliasSC6)->C6_NOTA,
(cAliasSC6)->C6_NFORI})
(cAliasSC6)->(dbSkip())

ENDDO

(cAliasSC6)->(dbCloseArea())

If Len( aSC6 ) == 0

Aviso( cTitulo, "Não existe dados a consultar", {"Ok"} )

Return

EndIf


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