No momento do DepoisDeAbrirEmpresa as categorias ainda não estão iniciadas, portanto não consegue utilizar o PSO.AbreLista.
No entanto, é possível abrir uma lista baseada em SQL durante o arranque já que ela não está associada a nenhuma categoria. Por exemplo:
Dim strSql As StdBEStringBuilder
'Usar sempre o string builder
Set strSql = New StdBEStringBuilder
strSql.Append ("SELECT C.Contacto, C.PrimeiroNome, C.UltimoNome,")
strSql.Append (" C.Email as CEmail, C.Telefone as CTelefone, C.Telemovel as CTelemovel,")
strSql.Append (" L.TipoContacto, L.TipoEntidade, L.Entidade")
strSql.Append (" FROM Contactos C INNER JOIN LinhasContactoEntidades L ON (C.ID = L.IDContacto)")
strSql.Append (" WHERE ((L.Entidade = 'SOFRIO') AND (L.TipoEntidade = 'C')) ORDER BY L.Entidade")
PSO.Listas.GetF4SQL "A minha Lista Contactos", strSql.Value, "Contacto,PrimeiroNome,UltimoNome,CEmail,Telefone,CTelemovel,TipoContacto,TipoEntidade,Entidade"
