PC Toledo

Enviado: **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

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

Enviado: **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)

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

PC Toledo

Enviar um valor para um combobox

Enviar um valor para um combobox

Enviar um valor para um combobox

Enviar um valor para um combobox