Perguntas Colocar o Foco em um determinado Campo apos Validação

Bom dia Pessoal,

Estou precisando da ajuda de voces para, me ajudar a colocar o foco em um campo quando a validação do campo não for satisfeita. Eu consegui zerar os dados do campo mas não estou conseguindo colocar o foco nele. Segue abaixo a rotina de validação e agradeço se alguem puder me ajudar.

User Function ZZ8GAT(oView, cIdView, cField, xValue)

Local oModel := FwModelActive()
Local nOperation := 0
Local nOperation := oModel:GetOperation()

Private cCodEnd := oModel:GetValue("CamposZZ8", "ZZ8_CODEND") && Codigo do Endereçamento
Private cNfiscal := oModel:GetValue("CamposZZ8", "ZZ8_DOC") && Nota Fiscal
Private cSerieNF := oModel:GetValue("CamposZZ8", "ZZ8_SERIE") && Serie Nota Fiscal
Private cFornec := oModel:GetValue("CamposZZ8", "ZZ8_FORN") && Cod.Fornecedor
Private cLojaFor := oModel:GetValue("CamposZZ8", "ZZ8_LOJA") && Loja Fornecedor

Private cNomeF := Space(30)
Private nValorIni := 0
Private nValorMov := 0

aSM0Data2 := FWSM0Util():GetSM0Data(,cCodEnd)

nOperation := oModel:GetOperation()

IF nOperation == MODEL_OPERATION_INSERT .Or. nOperation == MODEL_OPERATION_UPDATE

// Verifico se a Tempoaria esgtá aberta se estiver fecha para criar uma nova
If (Select("TMPZZ7") <> 0)
dbSelectArea("TMPZZ7")
TMPZZ7->(dbCloseArea ())
Else

cQuery:= " Select UAZ_PEDCOM,UAZ_FORN,UAZ_LOJA,UAZ_DOC,UAZ_SERIE"
cQuery+=" From "
cQuery+=RetSqlName("UAZ") + " UAZ "
cQuery+=" Where "
cQuery+=RetSqlDel("UAZ")
cQuery+= " AND UAZ_DOC ='" + cNfiscal +"'"
cQuery+= " AND UAZ_SERIE='" + cSerieNF +"'"
cQuery+= " AND UAZ_FORN='" + cFornec +"'"
cQuery+= " AND UAZ_LOJA='" + cLojaFor + "'"

cQuery:=ChangeQuery(cQuery)
TcQuery cQuery Alias "TMPZZ7" New

dbSelectArea("TMPZZ7")
dbGoTop()

cNewValor:=Space(15)

If Substring(TMPZZ7->UAZ_PEDCOM,1,2) <> Substring(cCodEnd,1,2)

FwAlertErro('Este endereço '+cCodEnd + ' pertence a filial: ' +;
Substring(TMPZZ7->UAZ_PEDCOM,1,2) + '-'+Alltrim(FWFilialName("01",Substring(TMPZZ7->UAZ_PEDCOM,1,2))), ' favor verificar!!!')
oModel:GetModel("CamposZZ8"):SetValue("ZZ8_CODEND" ,cNewValor)

Endif

TMPZZ7->( dbCloseArea() )

Endif

If ValType(oView) == "O"
oView:Refresh()
Endif
Endif
Return