Método Application.GetProjectServerVersion (Project)

Este método verifica a versão do Project Server do projeto ativo. O método também pode ser usado para verificar se a URL de um determinado servidor aponta para um Project Server válido e em funcionamento.

Sintaxe

expression. GetProjectServerVersion( _ServerURL_ )

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ServerURL	Obrigatório	String	Uma sequência que representa a URL da versão do Project Server que precisa ser verificada.

Valor de retorno

PjServerVersionInfo

Comentários

Se o argumento ServerURL não apontar para um Project Server válido e em funcionamento, o método retornará um erro interceptável (código de erro 1004).

Exemplo

O exemplo a seguir retorna um fluxo de XML que representa as seguintes configurações do Project Server: ProjectServerSettingsRequest, AdminDefaultTrackingMethod, AdminTrackingLocked, ProjectIDInProjectServer, ProjectManagerHasTransactions, ProjectManagerHasTransactionsForCurrentProject, TimePeriodGranularity e GroupsForCurrentProjectManager.

Sub mpsVersion() 
 URL = ActiveProject.ServerURL 
 If Application.GetProjectServerVersion(URL) = pjServerVersionInfo_P10 Then 
 ActiveProject.MakeServerURLTrusted 
 xmlStream = Application.GetProjectServerSettings( _ 
 RequestXML:="<ProjectServerSettingsRequest>" _ 
 & "<AdminDefaultTrackingMethod /><AdminTrackingLocked />" _ 
 & "<ProjectIDInProjectServer />" _ 
 & "<ProjectManagerHasTransactions />" _ 
 & "<ProjectManagerHasTransactionsForCurrentProject />" _ 
 & "<TimePeriodGranularity /><GroupsForCurrentProjectManager />" _ 
 & "</ProjectServerSettingsRequest>") 
 MsgBox xmlStream 
 Else 
 MsgBox "This macro returns information from Project " _ 
 & "Server. Please choose 'Collaborate using Project " _ 
 & "Server' and specify a valid Project Server URL " _ 
 & "for this project in Collaboration Options (Collaborate menu)." 
 Exit Sub 
 End If 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.