PC Toledo

Código: Selecionar todos

ESTRU_DBF := { { "IDLOG"  , "N",  5, 0 } , ;
                         { "DATA"   , "D",  8, 0 } , ;
                         { "HORA"   , "C",  8, 0 } , ;
                         { "USUARIO", "C", 20, 0 } , ;
                         { "ACAO"   , "C", 20, 0 } , ;
                         { "MODULO" , "C", 20, 0 } }

Código: Selecionar todos

...
   AADD( ESTRU_DBF, { "CAMPO1", "N", 5, 2 } )
   AADD( ESTRU_DBF, { "CAMPO2", "D", 8, 0 } )
...

Código: Selecionar todos

ESTRU_DBF := { { "IDLOG"  , "N",  5, 0 } , ;
                         { "DATA"   , "D",  8, 0 } , ;
                         { "HORA"   , "C",  8, 0 } , ;
                         { "USUARIO", "C", 20, 0 } , ;
                         { "ACAO"   , "C", 20, 0 } , ;
                         { "MODULO" , "C", 20, 0 } }
AADD( ESTRU_DBF, { "CAMPO1", "N", 5, 2 } )
AADD( ESTRU_DBF, { "CAMPO2", "D", 8, 0 } )
DBCREATE( "novodbf",ESTRU_DBF )

Código: Selecionar todos

...
if file( "novodbf.dbf" )
...

Código: Selecionar todos

...
USE novodbf EXCLUSIVE
APPEND FROM antigo
...

Código: Selecionar todos

procedure addField( file, field, type, len, dec )

	use &file new
	aStruct := dbStruct( file )

	// campo já existe
	if fieldPos( field ) != 0
		close &file
		alert( "Erro em "+ProcName()+". Campo "+field+" existe na tabela "+file+"!" )
		return
	endif
	close &file
	
	aAdd( aStruct, { field, type, len, dec } )
	dbCreate( "temp", aStruct )
	
	use temp new
	append from &file
	close temp
	
	fErase( file+".dbf" )
	fRename( "temp.dbf", file+".dbf" )
	
	return

Código: Selecionar todos

addField( "clientes", "campo", "C", 30, 0 )

Código: Selecionar todos

PUBLIC LISTADBF := {}
XJAF_ARRUMAR    := .t.  // Carrega por parametro no meu caso pois executo somente quando necessario
TIPODRIVER      := '.CDX'



Cria_Dbf01()

//---------------------------------------------------------------------
Function Cria_Dbf01()
      CARQCDX := "TESTE"+TIPODRIVER
      CARQDBF := "TESTE.DBF"

      Estru := { {"Registr", "N", 10,0 },;
                 {"Data"   , "D",  8,0 },;
                 {"Hora"   , "C", 10,0 },;
                 {"Texto"  , "C", 50,0 } }

      AADD(LISTADBF,{CARQCDX,CARQDBF})

      Ver_Dbf('TESTE.DBF',ESTRU)

      If ! File("TESTE.dbf")
           MSG("AGUARDE.... CRIANDO "+CARQDBF)
           Dbcreate("TESTE.dbf",Estru)

           Use Teste
               For x:= 1 to 1000
                   Append Blank
                   Repla Registr    With x
                   Repla data       With date()
                   Repla hora       With Time()
                   Repla Texto      With StrZero(x,10)+Dtoc(Date())+Time()
               Next
      Endif
Return Nil


//------------------------------------------------------
Static Function Ver_Dbf(cDbf,cMatriz)
Local cArquivo    := cDbf
Local nTotCompos  := 0
Local DadoCampo   := {}
Local cCampos     := {}
Local cPesq
Local b
If XJAF_ARRUMAR==.F.
   Return .t.
ENDIF


If ! File(cArquivo)
     Return nil
Endif

//--- Carregando Estrutura do Dbf
       Close All
       Close All
       Sele 1
            Use (cArquivo) Alias _Arq

       Sele _Arq

       nTotCompos := FCount()
       DadoCampo  := DbStruct()
       cCampos    := {}
       Close all

       For B:=1 to nTotCompos
            cFields := ALLTRIM(Upper(DadoCampo[b,1]))+;
                       Upper(DadoCampo[b,2])+;
                       Str(DadoCampo[b,3],7)+;
                       Str(DadoCampo[b,4],7)

             Aadd(cCampos,cFields ) // ,DadoCampo[b,2],DadoCampo[b,3],DadoCampo[b,4]} )
       Next
       cErros := {}
       For x:= 1 to Len(cMatriz)
           cPesq   := ALLTRIM(Upper(cMatriz[x,1]))+;
                       upper(cMatriz[x,2])+;
                       Str(cMatriz[x,3],7)+;
                       Str(cMatriz[x,4],7)
           nPos   := Ascan(cCampos,cPesq)
           If nPos == 0
              cMsg := "Falta Campo :"+cPesq
              aadd(cErros,cMsg)
           Endif
       Next
       If Len(cErros) > 0
          Cri_Dbf_Estru(cArquivo,cMatriz)
       Endif
Return nil
//--------------------------------------
Static Function Cri_Dbf_Estru(cDbf,cEstru)
Local nSize     := Len(cDbf)
Local cNomeFile := Substr(cDbf,1,nSize-4)
Local cLocal    := ""
If File(cLocal+cNomeFile+'.Tmp')
   Delete File (cLocal+cNomeFile+'.Tmp')
Endif
Dbcreate(cNomeFile+'.Tmp',cEstru)

CLOSE ALL
CLOSE ALL
SET DELETED OFF
MSG("AGUARDE.... Arrumando Arquivo "+cDbf)
SELE 1
     USE (cNomeFile+'.Tmp')
     Set index to 
     Append from (cDbf)

SET DELETED ON
CLOSE ALL
CLOSE ALL
CLOSE ALL
Delete File (cLocal+cDbf)
Rename (cLocal+cNomeFile+'.Tmp') to (cLocal+cDbf )
Close all
If File(cNomeFile+'.cdx')
   Delete File (cNomeFile+'.cdx')
Endif
CLOSE ALL
CLOSE ALL
Return nil



//------------------------------------------------------------
STATIC FUNCTION MSG(XTEXTO)
CLEAR
@ 24,00 SAY PADC(XTEXTO,80) COLOR("RR+/W")
RETURN NIL