1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method DeleteAllPeriodSpecExcept ( 
 |    MacroPlan macroplan, 
 |    PeriodSpecification_MP periodSpec 
 |  ) 
 |  { 
 |    Description: 'Delete all unused period specifications except the input period spec and planning period spec.' 
 |    TextBody: 
 |    [* 
 |      // Delete all other period specs ( except input period specification & planning period ) 
 |      // Planning period has empty time unit 
 |      psToBeDeleted := selectset( macroplan, PeriodSpecification_MP, ps, ps.TimeUnit() <> '' and ps <> periodSpec ); 
 |      PeriodSpecification_MP::Delete( psToBeDeleted ); 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |