Enviar um valor para um combobox

[Paulao]

Bom dia pessoal, criei uma rotina que pesquisa pelo numero do CEP e preenche os campos endereco, bairro, cidade, e estado, no meu formulario no campo estado existe um combobox que possui as siglas dos estados brasileiros, a minha rotina de pesquisa por cep é esta abaixo

Código: Selecionar todos

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:

Código: Selecionar todos

       
      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

[asimoes]

Paulo,

No combobox você pode tentar isso: onde cUF é a UF da sua função de pesquisa.
VALUE AScan(AuF, {|e| e = cUF})

Na sua função Pesq_Cep tem 2 retornos seguidos verifique isso:
return(nil)
return(cReg)

[jcsprog]

Ola utilizo o combobox desta forma o arquivo com setor tem os campos descrição == despec
e codpec apresento para o usuario o descpec mas na hora de gravar na variavel leco o codpec
ficou bem melhor
e não importa o indice que estiver aberto

@ 270,010 COMBOBOX c_setor;
ITEMSOURCE Setor->DESPEC;
VALUESOURCE Setor->CODPEC;
WIDTH 280 HEIGHT 120

espero que ajude