PC Toledo

EXEMPLO: ATUALIZEI A VERSAO QUE CONSTA UMA NOVA
VARIAVEL NO DBF.
COMO FAÇO VIA PROGRAMA PARA SABER SE NO CLIENTE ESSA TAL
VARIAVEL EXISTE E SE NAO EXISTIR CRIA-LA AUTOMATICAMENTE NO DBF DELE.
**************** ATENCAO ***********
EXISTE COMO FAZER ISTO SEM SER RENOMEADO O ARQUIVO
E DANDO UM APPEND

O DBF contém campos e não variáveis.

Para achar um campo faça o seguinte

Código: Selecionar todos

Function temcampo(campo)
for i=1 to fcount()
   if alltrim(field(i))=alltrim(campo)
      return .t.
   end if
next
return .f.

Esta rotina retornará .T. se o campo existir

eu sei o q você precisa:
1) Grave o novo arquivo .dbf (vazio) numa pasta.
2) Abra-a e append from \seuprograma\seudbf
3) feche-o
5) copie-o sobrepondo ao antigo.

Mário

PC Toledo

VERIFICAR SE EXISTE DETERMINADA VARIAVEL NO DBF

VERIFICAR SE EXISTE DETERMINADA VARIAVEL NO DBF