haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Quintiq file version 2.0
#parent: #root
StaticMethod GetTreePISP (
  ProductInStockingPoint_MP pisp
) as owning ProductInStockingPoint_MPs
{
  Description: 'return all nodes in MEIO tree below pisp'
  TextBody:
  [*
    treenodes := construct( ProductInStockingPoint_MPs );
    treenodes.Add( pisp ); 
    traverse( pisp, MEIO_Child, child ) 
    {
      set := MEIO_Engine::GetTreePISP( child ); 
      treenodes := treenodes.Union( set ); 
    }
    
    return &treenodes
  *]
}