Compartir a través de

Propiedad StartDriver.Warnings (Project)

  • Artículo

Obtiene una combinación de valores de PjTaskWarnings que indican si hay problemas de una tarea especificada. Long de sólo lectura.

Sintaxis

expresión. Warnings

Expresión Expresión que devuelve un objeto StartDriver .

Comentarios

Si no hay ninguna advertencia para una tarea, el valor de advertencias es 0. Debido a que el valor de pjTaskWarningResourceBeyondMaxUnit es 64 y el valor de pjTaskWarningResourceOverallocated es 128, si las advertencias es 192, la tarea tiene dos de los problemas.

Nota:

[!NOTA] La enumeración PjTaskWarnings se puede usar con la propiedad Suggestions y la propiedad Warnings.

Ejemplo:

En el ejemplo siguiente, si el valor de la propiedad de las advertencias de tarea 5 es 128, muestra el cuadro de mensaje el recurso está sobreasignado.. Si el valor es 68, se muestra el cuadro de mensaje:

  • La asignación es mayor que la capacidad máxima del recurso disponible.

  • La tarea instantánea finaliza antes debido a un vínculo de predecesora.

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

Consulte también

StartDriver (objeto)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.