BUG修复

admin

2024-08-21 399b1733fce10c0afefe36167f499d9e1e31e7b3

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Quintiq file version 2.0
#parent: #root
StaticMethod AddPISPIPBeforeLastToFirst (
  output ProductInStockingPointInPeriodPlanningLeafs candidates_o,
  ProductInStockingPoint_MP pisp,
  ProductInStockingPointInPeriodPlanningLeaf lastpispip,
  DateTime first
) as ProductInStockingPointInPeriodPlanningLeaf
{
  TextBody:
  [*
    lastpispip := lastpispip.PreviousPlanningPISPIP().astype( ProductInStockingPointInPeriodPlanningLeaf ); 
    lastadded := null( ProductInStockingPointInPeriodPlanningLeaf ); 
    while(  not isnull( lastpispip )
                        and lastpispip.Start() >= first ) 
    {
      candidates_o.Add( lastpispip ); 
      lastadded := lastpispip; 
      lastpispip := lastpispip.PreviousPlanningPISPIP().astype( ProductInStockingPointInPeriodPlanningLeaf ); 
    }
    return lastadded;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}