Tenho o seguinte TEXTBOX
DEFINE TEXTBOX oGet_cnfj_cai
ROW 170
COL 720
WIDTH 147
FONTNAME "Tahoma"
FONTSIZE 10
TOOLTIP "Digite o CNPJ/CPF DO PARCEIRO"
UPPERCASE .T.
MAXLENGTH 14
VALUE x_cnfj_cai
ON GOTFOCUS poe_cnpj(form_cai.oGet_parc_cai.value)
END TEXTBOX
Minha intenção era quando o textbox entrasse em foco ele chamava uma funcão para buscar o CPF/CNPJ do cliente
Func poe_cnpj(par1)
cPesq := par1
dbselectarea('parnomad')
ordsetfocus('nome_par')
dbseek(cPesq)
if eof()
Msgbox("Cliente não encontrado")
else
msgbox("Cliente encontrado")
endi
form_cai.oGet_hist_cai.setfocus
return(nil)
O problema é que quando a função é chamada ela volta o foco para o textbox novamente que chama a funcão novamente formando m loop infinito, tentei mudar o foco para outro textbox após o textbox que chama a função mas não funciona assim, o foco volta para o textbox que chama a função. o que da pra fazer neste caso