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

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

Синтаксис

выражение. Warnings

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

Примечания

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

Примечание.

Перечисление PjTaskWarnings можно использовать как со свойством Suggestions , так и со свойством 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 и обратная связь.