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
| Quintiq file version 2.0
| #parent: #root
| MethodOverride SetPreferredHorizontalPosition
| {
| Description: 'Set node to prefered position'
| TextBody:
| [*
| i := this.GridX() + 1;
| traverse( this,
| StockingPoint_MP.OutputUnit.Unit.UnitNode,
| n,
| n.SupplyChainView() = this.SupplyChainView() )
| {
| n.GridX( minvalue( i, n.GridX() ) );
| }
|
| traverse( this,
| StockingPoint_MP.OutputUnit.Unit.UnitNode,
| n,
| n.SupplyChainView() = this.SupplyChainView()
| and n.GridX() = i )
| {
| n.SetPreferredHorizontalPosition();
| }
| *]
| }
|
|
