修复一些bug

xiaoding721

2024-11-14 f55840994436da0a2ced1632612ff27f1a738eae

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
Quintiq file version 2.0
#parent: #root
Method AddSPIPs (
  output StockingPointInPeriods spips_o,
  Period_MP firstperiod,
  Period_MP lastperiod,
  StockingPoint_MP sp
) as owning StockingPointInPeriods
{
  TextBody:
  [*
    addedsp := construct( StockingPointInPeriods ); 
    firstspip := StockingPointInPeriod::FindStockingPointInPeriodTypeIndex( sp.ID(), firstperiod.Start(), firstperiod.End() ); 
    
    currentspip := firstspip; 
    lastperiodstart := lastperiod.Start(); 
    while(  guard( currentspip.Start() <= lastperiodstart, false ) ) 
    {
      if ( currentspip.Period_MP().IsInRectangleMetaOptimizer() ) 
      {
        spips_o.Add( currentspip ); 
        addedsp.Add( currentspip ); 
      }
      currentspip := currentspip.Next(); 
    }
    return &addedsp;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}