yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Quintiq file version 2.0
#parent: #root
Method GetIncludedUnits () as owning Units
{
  TextBody:
  [*
    // Traverse Entity and get all Unit included
    includedUnit := construct( Units );
    
    if( this.IsWorld() )
    {
      includedUnit := this.MacroPlan().Unit( relget );
    }
    else
    {
      rootUnit := this.MacroPlan().RootUnit( relget );
      
      // Traverse from root such that it guaranteed only visited each unit once
      traverse( rootUnit, Elements, unit )
      {
        subSet := this.GetSubsetUnit( unit );
        localIsIncluded := isnull( subSet ) or subSet.IsIncluded(); // Include, when product have subset is included and Include when no subset
        
        if( localIsIncluded )
        {
          includedUnit.Add( unit );
        }        
        
        local := unit.GetDecendentsInOptimizerSubset( this, 
                                                      localIsIncluded );
        
        includedUnit := includedUnit.Union( local );                                                                                                          
      }
    }
    
    return &includedUnit;
  *]
}