O assunto já é manjado mas não estou conseguindo fazer o que quero.
Desejo o seguinte:
c\Romario\ -> onde ficam os executáveis e arquivos dbfs/ntx comuns a todas as empresas.
c\Romario\emp01-> onde ficam os arquivos dbf/ntx particular de cada empresa.
Estou fazendo assim:
Public Rota
Rota:=space(15)
Num:=space(02)
@ 10,10 get Num valid Eval({||Num:=Strzero(Val(Num),2).T.})
read
...
If !File ((Rota)+"TbXXX.dbf")
CrXXX()
Endif
Use ((Rota)+"TbXXX.DBF") alias XXX NEW
Set index to .......
??????????? (aqui que tá pegando) não sei como fazer para acessar os indices na pasta da empresa)Como fazer ??, como voces fazem
Static Function CrXXX()
---------------------------
Local Estrut{{"Cod","c",02,0}.;
.......
........
demais campos
}}
DBcreate((Rota)+"TbXXX. Estrut)
Close Databases
Use ((Rota)+"TbXXX.dbf")
Index on Field->Cod to ((Rota)+"CodInd1.NTX")
Close Databases
Return(NIL)
Abraços
Romario
