Progama para varias empresas

[[pepon386]]

Prueba lo siguiente:

Código Delphi [-]
  if not Session.IsAlias(ALIAS_APP) then with Session do
  begin
    ConfigMode := cmSession;
    try
      AddStandardAlias(ALIAS_APP, Ruta, 'PARADOX');
    finally
      ConfigMode := cmAll;
    end;
  end;
  Database.AliasName := ALIAS_APP;
  Database.TransIsolation := tiDirtyRead;
  Database.Open;