Multi empresa

Buenas.
Estoy tratando de hacer que un programa sea
multiempresa.
Había pensado que cada vez que inicio el sistema le indico
que empresa voy
a usar, y luego indicando SET PATH TO, le indicaría el
directorio de
trabaja.
Vi por ahi que tenias un ejemplo del tema, si es asi y lo podes enviar mi casilla es diegosatch@yahoo.com.ar.

Gracias

Victor: estoy revisando tu proyecto de multiempresa Multi02, en el evento lostfocus del combo del formulario empresas tenes este codigo:
LOCAL m.cArchivo
WITH THISFORM
m.cArchivo = "Emp" + .Empresas.aClave( THIS.LISTINDEX, 1 ) + "\"
SET PATH TO Comunes\; &cArchivo
IF USED( "Empresa" )
USE Empresa IN Empresa
ELSE
USE Empresa IN 0
ENDIF
ENDWITH

De donde tenes la ubicacion de los archivos especificos de cada empresa y ademas indicas el path de los comunes.
La consulta es si tengo 20 bases propias de casa empresa tengo que indicar la clausula USE por cada una?
¿Por que preguntas IF USED("Empresa")? En que situaciones se cumple.
Gracias.

Mi caso especifico es que en un mismo sistema quiero "ver" los datos de varias empresas, que si bien la estructura de las bases son las mismas, los datos no.
En vez de tener 5 sistemas abiertos de cada empresa necesito tener uno solo y poder moverme entre las empresas solo indicando la direccion de los datos.
Vuelvo quizas con la misma pregunta, si cada empresa tiene 20 bases con el mismo nombre, la codificacion seria asi?
IF USED( "Tabla1" )
USE Tabla1 IN Tabla1
ELSE
USE Tabla1 IN 0
ENDIF
Y es replicado en la 20 bases?
Otra consulta: que pasaria si habro los datos de 5 empresas, ¿no tendria que ir cerrando las tablas una vez que cambio la misma?
Gracias de nuevo.

¿Funcionó la solución? En caso de no existir otra duda, favor de cerrar la pregunta.