Consulta con inner join

[delphi.com.ar]

Si cada tabla tiene sus índices respectivos, la consulta no es imperformante en absoluto. Lo único que resulta algo raro es porque tienes que preguntar empresa por empresa, desconociendo lo que quieres hacer con la consulta... ¿Esas empresas pertenecen a un grupo que puedas normalizar?... .asi preguntas algo como:

Código SQL [-]
and a.campo = valor

Si no puede ser así, porque es algo que elijes desde el front-end, por una cuestión estética, y de mas fácil lectura utilizaría la cláusula IN:

Código SQL [-]
where a.codempresa IN ('901', '902', '904', '905', '906', '907')

Saludos!