Modificata funzione CalcoloAPPortale

Ora considera anche se il portale è alleato