Perguntas Erro ao cancelar tela customizada no Venda Direta

#Include "Protheus.ch"
#Include "Topconn.ch"
#Include "Rwmake.ch"

User Function FT701BTN()

aReturn := { "Gar. Estendida", {|| Processa(({|| GarGrid()}))} }


Return aReturn

Static Function GarGrid()

Private _cQuery := ""
Private aHeader := {"*","Item", "Codigo", "Descrição","Gar. Fab", "Garantia"}
Private aRows := {{.F.,"","","","",""}}
Private aRow := {}
Private aCol := {}
Private oDlg,oList1,oSBtn2
Private oOK := LoadBitmap(GetResources(),"LBOK")//LoadBitmap(GetResources(),‘br_verde‘)//
Private oNo := LoadBitmap(GetResources(),"LBNO")//LoadBitmap(GetResources(),‘br_vermelho‘)//


DadosGar()
oDlg := MSDIALOG():Create()
oDlg:cName := "oDlg"
oDlg:cCaption := "Itens Em Garantia Estendida"
oDlg:nLeft := 0
oDlg:nTop := 0
oDlg:nWidth := 860
oDlg:nHeight := 304
oDlg:lShowHint := .F.
oDlg:lCentered := .T.

oList1 := TLISTBOX():Create(oDlg)
oList1:cName := "oList1"
oList1:cCaption := "oList1"
oList1:nLeft := 20
oList1:nTop := 30
oList1:nWidth := 774
oList1:nHeight := 161
oList1:lShowHint := .F.
oList1:lReadOnly := .F.
oList1:Align := 0
oList1:lVisibleControl := .T.
oList1:nAt := 0

oList1 := TWBrowse():New(20,30,774,161,,aHeader,aCol,oDlg,,,,,,,,,,,,.F.,,.T.,,.F.,,,)
oList1:nLeft := 20
oList1:nTop := 30
oList1:nWidth := 774
oList1:nHeight := 161

oList1:SetArray( aRows )
oList1:bLine := {|| getRows()}


oSBtn2 := SBUTTON():Create(oDlg)
oSBtn2:cName := "oSBtn2"
oSBtn2:cCaption := "Sair"
oSBtn2:nLeft := 733
oSBtn2:nTop := 209
oSBtn2:nWidth := 52
oSBtn2:nHeight := 22
oSBtn2:lShowHint := .F.
oSBtn2:lReadOnly := .F.
oSBtn2:Align := 0
oSBtn2:lVisibleControl := .T.
oSBtn2:nType := 2
oSBtn2:bAction := {|| oDlg:End()}


oDlg:Activate()

Return


Static Function getRows()
Local aRet := {}

aAdd(aRet, Iif(aRows[oList1:nAt,1],oOk,oNo))
aAdd(aRet, aRows[oList1:nAt,2])
aAdd(aRet, aRows[oList1:nAt,3])
aAdd(aRet, aRows[oList1:nAt,4])
aAdd(aRet, aRows[oList1:nAt,5])
aAdd(aRet, aRows[oList1:nAt,6])

Return aRet


//Função para selecionar os dados das tabelas e preencher o ListBox
Static Function DadosGar()

DbSelectArea("SL2")
DbSetOrder(1)
SL2->(DbSeek(xFilial("SL2")+SL1->L1_NUM))

//Posicionando no registro atual
If SL2->(L2_FILIAL+L2_NUM) == SL1->(L1_FILIAL+L1_NUM)
//RegAtu := SL2->(L2_FILIAL+L2_NUM) == SL1->(L1_FILIAL+L1_NUM)


_cQuery :=" SELECT L2_DOC, L2_NUM, L1_NUM, L2_FILIAL, L1_FILIAL, L2_ITEM, L2_PRODUTO, B1_COD, L2_DESCRI, B1_YGARFAB, ZY_PREMIO, ZY_GRUPO, B1_GRUPO, ZY_PRODUTO "
_cQuery +=" FROM SL2010 SL2"
_cQuery +=" INNER JOIN SB1010 AS SB1 ON SB1.D_E_L_E_T_ = ‘‘ AND SL2.L2_PRODUTO = SB1.B1_COD "
_cQuery +=" INNER JOIN SZY010 AS SZY ON SZY.D_E_L_E_T_ = ‘‘ AND SB1.B1_GRUPO = SZY.ZY_GRUPO "
_cQuery +=" INNER JOIN SL1010 AS SL1 ON SL1.D_E_L_E_T_ = ‘‘ AND SL1.L1_NUM = SL2.L2_NUM AND SL1.L1_FILIAL = SL2.L2_FILIAL"
_cQuery +=" WHERE SL2.D_E_L_E_T_ = ‘‘ "
_cQuery +=" AND SB1.B1_GARANT = ‘1‘ "
_cQuery +=" AND SL2.L2_EMISSAO= ‘"+Dtos(dDataBase)+"‘ "
_cQuery +=" ORDER BY SL2.L2_ITEM "


dbUseArea(.T.,"TOPCONN",TcGenQry(,,CHANGEQUERY(_cQuery)),"TRB",.T.,.F.)

dbSelectArea("TRB")
dbGotop()

aRows := {}

Do While !TRB->(EOF())
aAdd(aRow, IIf(Empty(TRB->L2_DOC),.F.,.T.) )
aAdd(aRow, TRB->L2_ITEM)
aAdd(aRow, TRB->L2_PRODUTO)
aAdd(aRow, TRB->L2_DESCRI)
aAdd(aRow, TRB->B1_YGARFAB)
aAdd(aRow, Alltrim(TRB->ZY_PRODUTO)+" - "+ "Valor R$ "+Transform(TRB->ZY_PREMIO,"@E 9,999.99"))


aAdd(aRows, aRow)
aRow:={}

TRB->(dbSkip())
EndDo

dbSelectArea("TRB")
dbCloseArea("TRB")
Endif
Return



O processo é executado tudo certo, mas após clicar no botão Sair e tentar fazer qq outra operação sistema trava retornando o erro abaixo e derruba a estação. Segue o erro retornado:

*************************************************************************
TOTVS Build 7.00.121227P-20131106
THREAD ERROR ([18640], Administrator, MTI-S1) 09/08/2015 09:04:59
InterFunctionCall: cannot find function FWALLLOGOBJ in AppMap
( PREVIOUS ERROR :
Alias does not exist:
)
on ERRORDIALOG(APLIB240.PRW) 19/12/2014 17:45:08 line : 110


Alguém pode me ajudar?
Desde já agradeço!!

Problema resolvido galera...

Faltava incluir na chamado da função: GETAREA e RESTAREA

fica a dica se alguém precisar.