Manejo de tareas críticas y de esfuerzo

 1$ proyecto = nuevo proyecto ('test_tasks.mpp');
 2
 3$ colector = new ChildTaskScollector ();
 4
 5$ TaskUtils = new TaskUtils ();
 6
 7$ TaskUtils-> Aplicar ($ Project-> Getroottask (), $ Collector, 0);
 8
 9$ tsk = nuevo tsk ();
10
11$ tareas = $ colector-> getTasks ();
12
13$ i = 0;
14
15mientras que ($ i <sizeof ($ tareas))
16
17{
18
19    $task = $tasks -> get($i);
20
21    print $str_effort_driven = $task -> get($tsk -> IS_EFFORT_DRIVEN) != null ? "\nEffortDriven" : "\nNon-EffortDriven";
22
23    print $str_is_critical = $task -> get($tsk -> IS_CRITICAL) != null ? "\nCritical" : "\nNon-Critical";
24
25    $i += 1;
26
27}