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 );
| }
| }
| *]
| }
|
|