>Te cuento lo que hise :
>1-Quite el Contenedor de bases del proyecto
>2-cree carpetas para cada empresa(Empre01, empre02...) con todos las tablas de datos dentro de cada carpeta.
>3-use un formulario con una lista desplegable de 1 a x empresas y de acuerdo a la empresa que se selecciona uso el siguiente codigo:(este formulario se muestra al iniciar el sistema)
>>nempresa=thisform.SpnerEmpresas.value
>IF nempresa=1
> SET PATH TO C:\contable\EMPR01_
> OPEN DATABASE c:\contable\empr01_\mycontenedor.dbc SHARED
>ELSE
> SET PATH TO C:\contable\EMPR02_
> OPEN DATABASE c:\contable\empr02_\mycontenedor.dbc SHARED
>ENDIF
>
Yo agregaría un par de cosas a tu ejemplo.
Leer la información de una tabla, o INI o XML. Asi puedes incluir cuantas compañias quieras en el futuro, no sólo dos (hardcoded). Antes de hacer el cambio me fijaría si ya está esa misma seteada.
cPath="C:\contable\EMPR01_"
cBD="c:\contable\empr01_\mycontenedor.dbc"
SET PATH TO (cPath)
If DBC() != cBD
OPEN DATABASE (cBD) SHARED
Endif
HTH
