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

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

Синтаксис

выражение. Warnings

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

Замечания

Если для задачи нет предупреждений, значение Предупреждения равно 0. Так как значение pjTaskWarningResourceBeyondMaxUnit равно 64, а значение pjTaskWarningResourceOverallocated равно 128, если значение Warnings равно 192, задача имеет обе проблемы.

Примечание.

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

Пример

В следующем примере, если значение свойства Warnings для задачи 5 равно 128, в окне сообщения отображается значение Ресурс является общим. Если значение равно 68, в окне сообщения отображается следующее:

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

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

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

См. также

Объект StartDriver

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

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