Partilhar via

Propriedade StartDriver.Warnings (Project)

  • Artigo

Obtém uma combinação dos valores de PjTaskWarnings que indicam se há problemas de uma tarefa especificada. Long somente leitura.

Sintaxe

expression. Warnings

Expressão Uma expressão que retorna um objeto StartDriver .

Comentários

Se não houver nenhum aviso para uma tarefa, o valor de avisos é 0. Como o valor de pjTaskWarningResourceBeyondMaxUnit é 64 e o valor de pjTaskWarningResourceOverallocated é 128, se avisos for 192, a tarefa tem ambos os problemas.

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 avisos para a tarefa 5 é 128, a caixa de mensagem mostrará 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 GetTaskWarnings() 

 Dim warnings As Long 

 Dim warningMsg As String 

 

 warnings = ActiveProject.Tasks(5).StartDriver.Warnings 

 

 warningMsg = CheckWarnings(warnings) 

 

 If Not warningMsg = "" Then MsgBox warningMsg 

End Sub 

 

Function CheckWarnings(warnings As Long) As String 

 Dim partial As Long 

 Dim warningResult As String 

 

 warningResult = "" 

 partial = warnings Xor pjTaskWarningResourceBeyondMaxUnit 

 If partial < warnings Then _ 

 warningResult = warningResult & "The assignment is more than the maximum resource units available." & vbCrLf 

 

 partial = warnings Xor pjTaskWarningResourceOverallocated 

 If partial < warnings Then _ 

 warningResult = warningResult & "The resource is overallocated." & vbCrLf 

 

 partial = warnings Xor pjTaskWarningShadowFinishesEarlierDueToLink 

 If partial < warnings Then _ 

 warningResult = warningResult & "The shadow task finishes earlier because of a predecessor link." & vbCrLf 

 

 CheckWarnings = warningResult 

End Function

Confira também

Objeto StartDriver

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.