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.