Propriedade StartDriver.Suggestions (Project)
Obtém uma combinação dos valores de PjTaskWarnings que indicam se há problemas potenciais que devem ser corrigidos para uma tarefa especificada. Long somente leitura.
Sintaxe
expression. Suggestions
Expressão Uma expressão que retorna um objeto StartDriver .
Comentários
Se não houver nenhuma sugestões para uma tarefa, o valor de sugestões é 0. Como o valor de pjTaskWarningsResourceBeyondMaxUnit é 64 e o valor de pjTaskWarningsResourceOverallocated é 128, se sugestões for 192, a tarefa tem ambos os problemas em potencial.
Observação
[!OBSERVAçãO] A enumeração PjTaskWarnings pode ser usada com a propriedade Suggestions e a propriedade Warnings.
Exemplo
No exemplo a seguir, se o valor da propriedade sugestões para a tarefa 2 é 128, a caixa de mensagem mostra o recurso está superalocado. Se o valor for 68, mostra a caixa de mensagem:
A atribuição é maior que as unidades de recurso máximas disponíveis.
A tarefa de sombra é concluída mais cedo devido a um link predecessor.
Sub GetTaskSuggestions()
Dim suggestions As Long
Dim suggestionMsg As String
suggestions = ActiveProject.Tasks(2).StartDriver.Suggestions
suggestionMsg = CheckSuggestions(suggestions)
If Not suggestionMsg = "" Then MsgBox suggestionMsg
End Sub
Function CheckSuggestions(suggestions As Long) As String
Dim partial As Long
Dim suggestionResult As String
suggestionResult = ""
partial = suggestions Xor pjTaskWarningResourceBeyondMaxUnit
If partial < suggestions Then _
suggestionResult = suggestionResult & "The assignment is more than the maximum resource units available." & vbCrLf
partial = suggestions Xor pjTaskWarningResourceOverallocated
If partial < suggestions Then _
suggestionResult = suggestionResult & "The resource is overallocated." & vbCrLf
partial = suggestions Xor pjTaskWarningShadowFinishesEarlierDueToLink
If partial < suggestions Then _
suggestionResult = suggestionResult & "The shadow task finishes earlier because of a predecessor link." & vbCrLf
CheckSuggestions = suggestionResult
End Function
Confira também
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.