机加物流成本报表

lihongji

2024-08-07 aad9856b9f6bc4debd611639ac2a2fb678b6ed71

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
39
40
41
42
43
44
45
46
Quintiq file version 2.0
#parent: #root
Method GenerateBenchmarkAddPeriods (
  Number nrperiodstoadd
)
{
  TextBody:
  [*
    // modify period specification - metal demo has only 1 planning period 
    if ( nrperiodstoadd > 0 ) 
    {
      lasperiodforcopysalesdemand := maxselect(  this, Period_MP, p, p.IsPlanning(), p.Start() ); 
      debuginfo(  'Used to copy sales demand period start = ', lasperiodforcopysalesdemand.Start() ); 
      periodspec := select(  this, PeriodSpecification_MP, p, true, p.IsUsedForPlanning() ); 
      periodspec.Update(  periodspec.ID(), 
                          periodspec.TimeUnit(), 
                          periodspec.NrOfTimeUnit(), 
                          periodspec.PeriodAlignment(),
                          periodspec.NrOfHistoricalPeriod(), 
                          periodspec.NrOfFuturePeriod() + nrperiodstoadd, 
                          true, 
                          false, 
                          true, 
                          false );  
      
      Transaction::Transaction().Propagate(); 
      
      // copy sales demand of last period into new periods
      salesdemandslast := selectset(  this, SalesDemand.astype( Forecast), sd, true, sd.StartDate() = lasperiodforcopysalesdemand.StartDate() ); 
      traverse( periodspec, Period_MP, period, period.StartDate() > lasperiodforcopysalesdemand.StartDate() )
      {
        newsalesdemand := Forecast::Copy( salesdemandslast ); 
        traverse( newsalesdemand, Elements, sd ) 
        {
          sd.StartDate( period.StartDate() ); 
          sd.EndDate( period.End().Date() ); 
          sd.SynchronizeSalesDemandInPeriod( true );
        }
      }
      
      // update kpi horizon 
      this.GlobalParameters_MP().EndOfKPIHorizon( max(  this, Period_MP, p, p.IsPlanning(), p.End().Date() ) );
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}