Apliación 3 Capas - MultiEmpresa

[camelumi]

No se si te pueda servir, pero usaria un archivo ini y al ingresar al sistema en la pantalla de usaurio y password (suponiendo que asi lo haces) agregario combo box con las empresas y al seleccionar y validar tu password almacenas el numero o id que le asignaste a la empresa o bien la ruta de la base de datos para la empresa x, y o prueba

Sds

[pache]

Además si usas dbExpress recuerda remitirte al archivo dbxconnections.ini para redireccionar la ruta de la base de datos al servidor o el directorio que corresponda.

Espero te sirva la sugerencia

[ceocarbajal]

Hola a todos,

Agradezco los comentarios que han hecho, así como su tiempo en leer el mensaje. Creo las sugerencias van bien para tecnología Cliente / Servidor, aunque se podría retomar algo para multiples capas.

Casí despues de postear este mensaje y despues de mucho buscar me encontre con la respuesta en esta página

How to execute stored procedure in client when use MIDAS

Básicamente describe un proceso a tres pasos:
1 Agregar un procedimiento a la Interfaz (Servidor de Aplicación)

procedure ExecProc(Params: Integer);

2 Escribir el código para el procedimiento en el Remote Data Module (Servidor de Aplicación)
procedure ExecProc(Params: Integer);
begin
StoredProc1.ParamByName('@Param').AsInteger := Params;
StoredProc1.ExecProc;
end;

3 En el cliente, hacer una llamada al servidor de aplicación, como la siguiente:
DComConnection1.AppServer.ExecProc(1);

Esto es bastante sencillo y funciona muy bien. Despues, dada la magnitud del proyecto, decidí crear Remote Data Modules Childs, por aquello de la división del código y la pregunta ahora fue "¿Como ejecutar un procedimiento remoto que se encuentra en un RDM Child desde el Cliente?"

Igual, realice los dos primeros pasos del proceso anterior en el RDM Child y en el punto 3 (la llamada desde el cliente al servidor de aplicación) fue:

SharedConnection.AppServer.MiProcedimiento (Param1, Param2),

Donde SharedConnection, es precisamente un componente TSharedConnection, cuya propiedad ChildName := RDMChild....

Agradezco nuevamente sus comentarios y espero que esta información le sirva a alguien más.

Un Saludo.

Alonso
Guadalajara, México