陈清红
2025-04-14 880f3c0257eeb8c37761d484258fdd102a369a19
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 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 );
  *]
}