Свойство StartDriver.Suggestions (Project)

Получает комбинацию значений PjTaskWarnings , указывающих, существуют ли потенциальные проблемы, которые необходимо устранить для указанной задачи. Только для чтения, Long.

Синтаксис

выражение. Suggestions

выражение Выражение, возвращающее объект StartDriver .

Примечания

Если для задачи нет предложений, значение предложения равно 0. Поскольку значение pjTaskWarningsResourceBeyondMaxUnit равно 64, а значение pjTaskWarningsResourceOverallocated равно 128, если значение Suggestions равно 192, то в задаче есть обе потенциальные проблемы.

Примечание.

Перечисление PjTaskWarnings можно использовать как со свойством Suggestions , так и со свойством Warnings .

Пример

Если значение свойства Suggestions для задачи 2 равно 128, в приведенном ниже примере будет показано, что ресурс превышен доступ. Если значение равно 68, в окне сообщения будет указано:

• Назначение превышает максимальное число доступных единиц ресурсов.

• Теневая задача завершается раньше из-за связи с предшественником.

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

См. также

Объект StartDriver

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.