PC Toledo

Boa tarde amigos, andei meio sumido, mais as dúvidas sempre aparecem!
Bom já aviso que não conheço nada de clipper sou apenas um curioso que as vezes tenta fazer algo, e as vezes dá com a cara na parede.
Não me achem folgado por favor, se eu soubesse pode ter certeza que eu faria!

Tenho um banco de dados com o nome de "vazio.dbf"

Nesse banco de dados tem um campo chamado "REGIAO" e dentro desse campo existem as siglas dos estados "ex. SP, RJ, etc".
Eu gostaria de uma PRG que ao executa-la a sigla "SP,RJ,SE,MG" passace a ser "4".
Eu fazia isso pelo access, mais so de converter a dbf e depois novamente converte-la, nossa dá um trabalhão.

Ps. O que eu queria era realmente isso, desde já agradeço a atenção de todos.

Não entendi bem... alias não entendi nada...

O que é uma sigla? Isto tudo "SP,RJ,MG,ES" é uma só?????????

Vou considerar que a sigla seja só o estado... Por exemplo "MG".

Conforme dito, a sigla está dentro do campo região... Então a própria sigla vai mudar para 4 e consequentemente desaparacer???

Se for é coisa simples:

Código: Selecionar todos

use vazio
while ! vazio->(eof())
  if ascan( {'SP','RJ','SE','MG'}, vazio->regiao ) > 0
    vazio->regiao='04'
  endif
  vazio->(dbSkip())
end

A idéia me parece estranha, mas...

Acredito que o colega esteja precisando consultar esse arquivo VAZIO.DBF e retornar o código conforme cadastrado no DBF. Aqui vai outro exemplo:

Código: Selecionar todos

USE VAZIO
IF !FILE("UF.NTX")
    INDEX ON REGIAO TO UF.NTX
ENDIF
VUF:=SPACE(2)
@ 12,00 SAY "Informe a UF" GET VUF PICT "!!"
READ
IF !LASTKEY()=27
   SEEK VUF
   IF FOUND()
      ? COD_REGIAO 
      /* 
      É claro que aqui vai o nome do campo que contem o código da regiao. 
      Eu aqui denominei como COD_REGIAO. 
      Olhe a estrutura do arquivo VAZIO.DBF e nos diga.
      */ 
   ELSE
       ? "UF não encontrada !"
   ENDIF
ENDIF

Este exemplo é bem básico evidentemente que pode ser melhorado considerávelmente colocando-o no próprio GET atarvés do VALID que chame uma função que verifica o digitado. Mas fiz este exemplo para saber se seria isso que você precisa.

Rapaziada, me enrolei um pouco né, liga não, mais é isso ai, deu certo sim, testei a opção do Stanis Luksys e funcionou corretamente.
Muito obrigado a ajuda de todos que se empenharam, Deus abençoe vcs.

fuiiiiiiiiiiii

PC Toledo

Ajuda a Montar uma PRG

Ajuda a Montar uma PRG