A
andy.novak
Hello Friends,
We are currently at the December cumulative hotfix level. I'm still
noticing that although I have been able to run a VBA script that
populates assignment level data based on attribution in a Task, when I
group by the Task attribute in View Assignments, I still get "No
Value" in the group by header.
I have three fields at the Task level containing a formula that points
to project level data (which works). Then I ran a VBA script that
pushed the task attribute value to all of its assignment records
(which seemed to work). It would be fantastic to be able to group by
these attributes in the View Assignments view while the list mode
(time-phased work data).
Here's how I'm setting the values at the Assignment Level:
Dim ts As Tasks
Dim t As Task
Set ts = ActiveProject.Tasks
For Each t In ts
If Not t Is Nothing Then 'Test for blank row
If Not t.Summary Then 'Test for summary row
Dim Assn As Assignment
Dim Assns As Assignments
Set Assns = t.Assignments
For Each Assn In Assns
Assn.TaskActivityType = t.GetField
(FieldNameToFieldConstant("TaskActivityType"))
Assn.TaskPerformer = t.GetField
(FieldNameToFieldConstant("TaskPerformer"))
Assn.TaskSvcArea = t.GetField
(FieldNameToFieldConstant("TaskSvcArea"))
Next Assn
End If
End If
Next t
Is this a bug or are you not supposed to be able to group by that task
value in View Assignments?
Thanks,
Andy Novak
UNT
We are currently at the December cumulative hotfix level. I'm still
noticing that although I have been able to run a VBA script that
populates assignment level data based on attribution in a Task, when I
group by the Task attribute in View Assignments, I still get "No
Value" in the group by header.
I have three fields at the Task level containing a formula that points
to project level data (which works). Then I ran a VBA script that
pushed the task attribute value to all of its assignment records
(which seemed to work). It would be fantastic to be able to group by
these attributes in the View Assignments view while the list mode
(time-phased work data).
Here's how I'm setting the values at the Assignment Level:
Dim ts As Tasks
Dim t As Task
Set ts = ActiveProject.Tasks
For Each t In ts
If Not t Is Nothing Then 'Test for blank row
If Not t.Summary Then 'Test for summary row
Dim Assn As Assignment
Dim Assns As Assignments
Set Assns = t.Assignments
For Each Assn In Assns
Assn.TaskActivityType = t.GetField
(FieldNameToFieldConstant("TaskActivityType"))
Assn.TaskPerformer = t.GetField
(FieldNameToFieldConstant("TaskPerformer"))
Assn.TaskSvcArea = t.GetField
(FieldNameToFieldConstant("TaskSvcArea"))
Next Assn
End If
End If
Next t
Is this a bug or are you not supposed to be able to group by that task
value in View Assignments?
Thanks,
Andy Novak
UNT