Рассчитывать отношения в проекте Microsoft

Question

Я экспортирую MS XML из Primavera P6 и импортирую его в MS Project. Я знаю количество отношений в Примавере. Но я не уверен, что все отношения импортируются в MSP. Может кто-нибудь сказать, пожалуйста, как найти номер отношения в MS Project. Пожалуйста, предложите

Answer 1

Да - если вы запустите следующий код в своем проекте, появится диалоговое окно с указанием количества зависимостей, определенных в проекте:

Sub CountDependencies()

Dim i_RelationshipCount As Integer
Dim tsk As Task
Dim tsk_dep As TaskDependency

i_RelationshipCount = 0

For Each tsk In ActiveProject.Tasks
    If tsk Is Nothing Then GoTo NextTask
    For Each tsk_dep In tsk.TaskDependencies
       'only count predecessors (otherwsie will count each realtionship twice)
        If tsk_dep.To = tsk Then
            i_RelationshipCount = i_RelationshipCount + 1
        End If
    Next tsk_dep
NextTask:
Next tsk

MsgBox i_RelationshipCount & " dependencies/relationships exist in this schedule."

End Sub

Answer 2

@AndrewEversight ответ полностью правильный. FWIW: Вот небольшая процедура, которая даст вам тот же результат:

Sub CountDependencies()

Dim i_RelationshipCount As Integer
Dim tsk As Task

i_RelationshipCount = 0

For Each tsk In ActiveProject.Tasks
    If Not tsk Is Nothing Then
         i_RelationshipCount = i_RelationshipCount + tsk.PredecessorTasks.Count
    End If
Next tsk

MsgBox i_RelationshipCount & " dependencies/relationships exist in this schedule."

End Sub