Ajuda a Montar uma PRG

[kristo]

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.

[Stanis Luksys]

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...

[Pablo César]

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.

[kristo]

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