function Pesq_Cep(nParametro,nOrigem)
local nChave := nParametro
dbselectarea('cepnomad')
ordsetfocus('cepe_cep')
cepnomad->(dbgotop())
cepnomad->(dbseek(nChave))
if found()
cli_inclui.oGet_ende_cli.value := cepnomad->ende_cep
cli_inclui.oGet_muni_cli.value := cepnomad->muni_cep
cli_inclui.oGet_bair_cli.value := cepnomad->copl_cep
cli_inclui.cBox_esta_cli.value := cepnomad->esta_cep
else
msgexclamation('CEP não encontrado','Atenção')
endif
return(nil)
return(cReg)
O Combobox tem o seguinte código:
DEFINE COMBOBOXEX cBox_esta_cli
ROW 217
COL 710
WIDTH 040
FONTNAME "Tahoma"
FONTSIZE 10
TOOLTIP "Digite o estado do Cliente"
ITEMS AuF
* VALUE 1
END COMBOBOXEX
O que eu necessito e que a funcao de buscar pelo cep coloque o estado certo la no combobox, exemplo se o estado e SP quando eu retornar da funcao pesq_cep ja aparece la a sigla SP
Obrigado aos amigos