Enviar um valor para um combobox

por **Paulao** » 04 Jul 2012 09:47

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

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

por **asimoes** » 04 Jul 2012 10:34

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)

por **jcsprog** » 05 Set 2012 14:28

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