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

Статья
04/07/2023

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

Синтаксис

выражение. Suggestions

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

Замечания

Если для задачи нет предложений, значение предложения равно 0. Так как значение pjTaskWarningsResourceBeyondMaxUnit равно 64, а значение pjTaskWarningsResourceOverallocated равно 128, если предложение равно 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 и обратная связь.

Поделиться через