TMGR: OLE Automation Error When Setting Work Values

MORE INFORMATION

When more than one person is assigned to a task, you need to set the work for each person on the task; the task will then reflect the correct rolled up work values for assigned work. For example, the following code fails on a task with more than 1 person assigned and Total Work of 3 days:

   Sub SetWork()

   Set Tmgr = GetObject(,"TeamManager.Application")
   Tmgr.Tasks(1).TotalWork = "1d"

   End Sub
				

In order to decrease the work on the task to 1 day with no unassigned work, you could do something similar to:

   Sub SetWork()

   Set Tmgr = GetObject(, "TeamManager.Application")
   ' Set total work on each assignment.
   For Each PeopleAssignment In Tmgr.Tasks(1).Assignments
      PeopleAssignment.TotalWork = ".5d"
   Next
  ' Remove unassigned work from task; otherwise, the task will still show
  ' 3 days of work.
  Tmgr.Tasks(1).TotalWork = "1d"
  End Sub