Compartir a través de

Propiedad StartDriver.Suggestions (Project)

  • Artículo

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

Sintaxis

expresión. Suggestions

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

Comentarios

Si no existen sugerencias para una tarea, el valor de sugerencias es 0. Debido a que el valor de pjTaskWarningsResourceBeyondMaxUnit es 64 y el valor de pjTaskWarningsResourceOverallocated es 128, si sugerencias es 192, la tarea tiene ambos de los posibles 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 sugerencias de tarea 2 es 128, el cuadro de mensaje muestra 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 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

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.