Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method DeleteObsoleteBasePeriod 
 | 
{ 
 | 
  Description: 'Delete all obsolete period after base period synchronization (IsDeleted=true).' 
 | 
  TextBody: 
 | 
  [* 
 | 
    // DWE2 May-10-2016 (created) 
 | 
     
 | 
    // Delete all useless periods 
 | 
    trash := selectset( this, Period_MP, period, period.IsDeleted() 
 | 
                        or( period.IsSystemCreated() 
 | 
                            and not period.IsBase() 
 | 
                            and not period.IsGapPlanning() ) ); 
 | 
    Period_MP::Delete( trash ); 
 | 
  *] 
 | 
} 
 |