Perguntas [RESOLVIDO] EnchoiceBar versão 10/11

Estranho acabei de pegar uma telinha simples customizada aqui e adicionei no active

ACTIVATE MSDIALOG oDlg ON INIT EnchoiceBar(oDlg,{||nOpca:=1,if(oGet:TudoOk(),oDlg:End(),nOpca := 0)},{||oDlg:End()})

e foi parar lá em cima rsrs.

bROTHER O PIOR QUE NÃO, É DE PROPRIEDADE DE UM CLIENTE MEU E ELE TEM CADASTRO AQUI NO SITE, MAS VC VAI VER QUE NÃO TEM NADA DE ANORMAL, ESTOU MANDANDO ATÉ A MONTAGEM DO DIALOG.

#INCLUDE "rwmake.ch"
#INCLUDE "TOPCONN.CH"
#INCLUDE "COLORS.CH"
#Include "PROTHEUS.CH"
//

---

/*/{Protheus.doc} MyFunction
Description

@param xParam Parameter Description
@return xRet Return Description
@author Luiz Alberto V Alves
@since 09/04/2013
/*/
//

---

User Function F3SB1(cFiltro)
Local aArea := GetArea()
Private oGet1
Private cGet1 := Space(50)
Private oSay1
Private oSay2
Private nPosProd := aScan( aHeader, { |x| AllTrim( x[2] ) == 'C6_PRODUTO' } )
Private oButton2
Private oButton3
Private oButton4
Private oButton5
Private oGet2
Private cGet2 := Space(50)
Private oDlg
Private oGdTrt := Nil
Private cCod := Space(15)
Private nOpcao := 0
Public nColuna := 1

DEFAULT cFiltro := ''

// Se o usuario já digitar no Acols, então já vem preenchido o Filtro.

If FunName()$"MATA410"
cFiltro := AllTrim(M->C6_PRODUTO)
ElseIf FunName()$"LOJA701"
cFiltro := AllTrim(M->LR_PRODUTO)
ElseIf FunName()$"MATA415"
cFiltro := AllTrim(TMP1->CK_PRODUTO)
Endif

DEFINE MSDIALOG oDlg TITLE "[Consulta Especifica Produtos]" FROM 000, 000 TO 500, 800 COLORS 0, 16777215 PIXEL


// Caso o Usuario já tenha pré digitado a palavra de filtro no campo de codigo do produto e pressionado F3
// o sistema já auto executa a filtragem

cGet1 := PadR(cFiltro,50)

MsAguarde({|| lOk := fMSNewGe1(AllTrim(cFiltro)) },'Processando...')

@ 014, 008 SAY oSay1 PROMPT "Filtrar:" SIZE 027, 008 OF oDlg COLORS 0, 16777215 PIXEL
@ 011, 034 MSGET oGet1 VAR cGet1 Picture "@!" SIZE 357, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 027, 008 SAY oSay2 PROMPT "Pesquisar:" SIZE 025, 007 OF oDlg COLORS 0, 16777215 PIXEL
@ 025, 034 MSGET oGet2 VAR cGet2 Picture "@!" SIZE 357, 010 OF oDlg COLORS 0, 16777215 PIXEL

@ 040, 014 BUTTON oButton4 PROMPT "&Ok" Action (nOpcao:=Iif(Selec(oGdTrt:oBrowse:nAt),1,0), oDlg:End()) SIZE 049, 027 OF oDlg PIXEL
@ 040, 066 BUTTON oButton5 PROMPT "&Cancela" Action (nOpcao:=0, oDlg:End()) SIZE 049, 027 OF oDlg PIXEL
@ 040, 120 BUTTON oButton2 PROMPT "&Ver Produto" ACTION fVer(oGdTrt:oBrowse:nAt) SIZE 049, 027 OF oDlg PIXEL

oGet1:bChange := {|| lOk := fMSNewGe1(cGet1) }
oGet2:bChange := {|| fPsq(AllTrim(cGet2)) }
oGet1:setfocus()

ACTIVATE MSDIALOG oDlg ON INIT EnchoiceBar(oDlg,{||nOpca:=1,if(oGet:TudoOk(),oDlg:End(),nOpca := 0)},{||oDlg:End()})

If nOpcao == 1
Return .t.
Else
SB1->(dbGoBottom())
Return .f.
Endif
Return