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
| Method AutoArrangeProduct (
| StockingPoint_MP stockingpoint
| )
| {
| Description: 'Auto arrage all product nodes'
| TextBody:
| [*
| nodes := selectset( stockingpoint, ProductInStockingPoint_MP.Product_MP.ProductNode, p, p.Product_MP().IsLeaf() );
|
| i := this.OffsetX();
| traverse( nodes, Elements, n )
| {
| n.GridX( i );
| n.GridY( this.OffsetY() );
| i++;
| }
|
| traverse( nodes, Elements, n )
| {
| n.GridX( n.GridX() * 3 );
| n.GridY( n.GridY() * 3 );
| }
| *]
| }
|
|
