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
| Quintiq file version 2.0
| #parent: #root
| Method Copy (
| SupplyChainView supplychainview
| ) as StockingPoint_MP
| {
| Description: 'Copy a stocking point'
| TextBody:
| [*
| // Copy stocking point
| node := select( this, StockingPointNode, spn, spn.ViewBase() = supplychainview );
| stockingpointname := this.GetNewCopiedStockingPointName();
| stockingpointid := stockingpointname; // Use copied name as ID during copy
|
| stockingpoint := null( StockingPoint_MP );
|
| stockingpoint := StockingPoint_MP::Create( stockingpointid,
| this.MacroPlan(),
| this.Unit(),
| stockingpointname,
| supplychainview,
| node.GridX() + 1 ,
| node.GridY(),
| this.IconName(),
| node.IsVisible(),
| node.NameDisplayBehavior(),
| node.TextColor(),
| this.UnitOfMeasure_MP(),
| this.Currency_MP(),
| this.IsPlannedInfinite(),
| this.Start(),
| this.End(),
| this.Group(),
| this.GISCountryCode(),
| this.GISCity(),
| this.GISPostalCode(),
| this.Notes(),
| false );
|
| // Copy stockingpointunit which is not system SP
| traverse( this, StockingPointUnit, spu )
| {
| spu.Unit().LinkToStockingPoint( stockingpoint, spu.IsInput() );
| }
|
| // Copy assignments and costs
| traverse( this, StockingPointAccount, spa )
| {
| spa.Copy( stockingpoint );
| }
|
| return stockingpoint;
| *]
| }
|
|
