yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Quintiq file version 2.0
#parent: #root
Method DataMockupGeneratePISPs (
  Number nrofproducts,
  Number nrofstockingpoints,
  String uomname,
  String currencyname
)
{
  TextBody:
  [*
    macroplan := this.MacroPlan();
    
    // Create top most level ProductLevel_MP
    ProductLevel_MP::Create( 'All Products', false, macroplan, false );
    
    // Create Product_MP for the number of passed in nrofproducts
    for( i := 0; i < nrofproducts; i++ )
    {
      // Product ID
      id := 'Product_' + [String] i;
    
      // Create Product_MP
      Product_MP::Create( macroplan,
                          id,
                          '',
                          id,
                          uomname,
                          false,
                          '',
                          '',
                          false,
                          0.0,
                          false,
                          0.0,
                          false,
                          false,
                          false,
                          true );
    }
    
    // Create StockingPoint_MP for the number of passed in nrofstockingpoints
    for( i := 0; i < nrofstockingpoints; i++ )
    {
      // Stocking point ID
      id := 'StockingPoint_' + [String] i;
      
      // Create StockingPoint_MP
      stockingpoint := StockingPoint_MP::Create( this.MacroPlan(),
                                                 id,
                                                 '',
                                                 id,
                                                 uomname,
                                                 currencyname,
                                                 true,
                                                 Date::MinDate(),
                                                 Date::MaxDate(),
                                                 '',
                                                 '',
                                                 false );
      
      // Generate all products in stocking point                          
      traverse( macroplan, Product_MP, product )
      {
        ProductInStockingPoint_MP::Create( product, stockingpoint );
      }
    }
  *]
}