Alguém pode me dizer se o procedimento abaixo está correto? Em caso negativo, o que está errado?
Func Main()
request dbfcdx
RddSetDefault( "DBFCDX" )
DbSetDriver( "DBFCDX" )
set date brit
set epoc to 1980
set delete on
Private _stru:={}
if !file("Empresas.dbf") // Se não existe o arquivo, cria o mesmo
aadd(_stru,{ "Codi" ,"C" ,05,0})
aadd(_stru,{ "Empr" ,"C" ,40,0})
aadd(_stru,{ "Ende" ,"C" ,40,0})
aadd(_stru,{ "Bair" ,"C" ,20,0})
aadd(_stru,{ "Muni" ,"C" ,20,0})
aadd(_stru,{ "Esta" ,"C" ,02,0})
dbcreate( 'Empresas.dbf', _stru)
endif
IF!FILE("Empresas.cdx")
Use Empresas ALIAS Empr SHARED NEW
INDEX ON Empr->Codi TAG mCodi TO Empresas.CDX
INDEX ON Empr->Empr TAG mEmpr TO Empresas.CDX
USE
ENDIF
Gilvandi