estou fazendo um axcadastro mas na validação preciso fazer com verificação no campo para ver se o que esta sendo digitado existe, tentei fazer via consulta padrão mas nao deu, e agora estou tentando via advpl e mesmo assim da erro.

User Function TELACAD()   
 Local aRotAdic :={} 
 local cDelOk := ".t."

 Local bOK  := {||MsgAlert('Chamada ao clicar em OK'), .T.}

 Local aButtons := {}//adiciona botões na tela de inclusão, alteração, visualização e exclusao
 aadd(aButtons,{ "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" }  ) //adiciona chamada no aRotina

 AxCadastro("ZZR", "Lotes Bloqueados", cDelOk, "U_COK()", , , , ,, , , aButtons, , )  
Return(.T.)                        


User Function COK() 

  Local cLot:= ZZR -> ZZR_LOTE

   (DBSELECTAREA( "SB8" ))
   (DBSETORDER(1)) 

   if !dbSeek( FwxFilial("SB8") + cLot )
  cLOT := Space(TamSX3("B8_LOTECTL")[1])
  Alert("Codigo nao encontrado na B8")
 endif
 return 

RestArea()