Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method GetAllParentsOfUnitDimensionNonConst () as owning UnitPeriods 
 | 
{ 
 | 
  Description: 'Returns all parents of the unit dimension' 
 | 
  TextBody: 
 | 
  [* 
 | 
    unitperiods := construct( UnitPeriods ) 
 | 
     
 | 
    unitperiod := this.ParentOfUnitDimension(); 
 | 
     
 | 
    while( not isnull( unitperiod ) ) 
 | 
    { 
 | 
     unitperiods.Add( unitperiod ) 
 | 
     unitperiod := unitperiod.ParentOfUnitDimension() 
 | 
    } 
 | 
     
 | 
    return &unitperiods 
 | 
  *] 
 | 
  InterfaceProperties { Accessibility: 'Extensible' } 
 | 
} 
 |