PC Toledo

num determinado dbf tenho um registro de titulo "nome", onde os campos sao preenchidos com nomes de pessoas. assim, por exemplo, num cadastro eu coloco no campo nome o meu nome: glauco cruz costa. ok
só que eu gostaria de poder pesquisar os esse nome, por exemplo, eu só sabendo que tem um glauco no ...

nenhum.
passa um exemplo, pf.

nao entendi...

Tem como colocar algum comando jundo com o GET para, após alguns segundos, se nada for digitado, ele chamar alguma função ou procedimento?
Obrigado.

:(
Na verdade, ainda não deu certo.
Em um dbf, as datas foram gravadas sem set epoch, ou seja, ficaram no padrão 1900.
Mesmo eu tendo transformado elas com dtoc, depois, voltado elas para o normal com ctod, estando o set epoch to 2000, não ficou gravado como 2000.
Será que há outra solução?
Vejam ...

Obruigado.
Depois de muito quebra-cabeça, consegui bolar essa rotina que deu certo:

SET EPOCH TO 2000
SET DATE BRITISH
USE RETORNO
GO TOP
DO WHILE .NOT. EOF()
IF DATA <> CTOD(" / / ")
A = DATA
B = DTOC(DATA)
REPLACE DATA WITH CTOD(B)
ENDIF
SKIP
ENDDO

Aqui eu modifiquei os campos datas para ...

Eu só quero copiar de um dbf para outro, atualizando campos.
Ninguém trabalhando é ninguém usando o sistema. Assim, eu o abrirei exclusive sem problemas.
O problema é que eu quero copiar somente os campos que possuem uma data específica. E tenho que encaixá-los em dois dos campos de nomes ...

Eu quero fazer isso somente uma vez. Mas não é em execução com o programa sendo trabalhado.
Eu apenas quero transportar os dados para o outro dbf com a estrutura diferente. E mais, na tabela destino, já há outros dados, portanto não se tratará de dar append, mas apenas de se fazer alteração.
E tb ...

Procurei muito, mas não encontrei.
Alguém sabe de algum comando ou função que altera o nome de um campo em um dbf?
Exemplo: Meu dbf tem os campos PRONTUARIO, CLINICA, MEDICO, DATA, LOCAL, COD
Gostaria de mudar o nome do campo COD para ATIVIDADE, mas tem que ser na execução.

É que eu quero mandar os ...

Ao invés de

if neterr()=.t.

eu poderia usar

do while .t.
use arquivo new exclusive
if neterr() = .t.
exit
else
loop
endif
endo

para esperar que dê certo a abertura do arquivo?

É que um livro que eu tenho aqui diz que pode tb usar o flock(), ou seja, ou se abre o dbf em com use exclusive ou bloqueia-o com flock().
Então, não dá mesmo certo bloqueá-lo com flock()?

Bom, é claro que eu esqueci de dar um unlock para desbloquá-lo.
Veja agora:

use arquivo shared new // abro o ...

Obrigadão, Eolo.
Muita coisa do que vc explicou, eu só recordei.
Meu vôo aqui está sendo em relação ao index.
Vamos ver se eu entendi.



use arquivo shared new
if !file("prontuar.ntx")
do while !flock()
endo
index on prontuar to temp
endif
set index to prontuar

Veja se isto serve.
Então, eu ...

Valeu Eolo.

Quanto ao seek, ele pesquisa rápido, mas para gravar num dbf de 1.500.000 registros, por exemplo, após a pesquisa por seek, torna-se rápido também?

Eu queria entender também: se o seek pesquisa no arquivo de índice, como que ao encontrar o registro procurado, já pode dar um REPLACE ...

Valeu!
Deu certo.
Porém, eu também gostaria de saber onde está o erro na minha rotina. Só a título de conhecimento mesmo.
Eu não sou muito bom no uso do SELECT e das setas (->) para se referir aos campos. Por isso apanho muito, e minhas rotinas ficam mais extensas e mais complicadas.
Mas, mesmo ...

Estou tentando transferir os registros de 1 DBFs para outro DBFs:
De ARQUI01.DBF para ARQUIV01.DBF

Ambos possuem a mesma estrutura - campos: prontuario, data, cod, local.
O arqui01.DBF está com esses campos todos preenchidos.
O arquiv01.dbf está apenas com o campo prontuario preenchido, mas ...