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
| Quintiq file version 2.0
| #parent: #root
| StaticMethod Move (
| SalesSegment_MPs salessegments,
| SalesSegment_MP parent,
| MacroPlan owner
| )
| {
| Description: 'Move sales segment to a different level'
| TextBody:
| [*
| salessegments := selectsortedset( salessegments, Elements, ss, true, -ss.Level() );
|
| traverse( salessegments, Elements, ss, ss <> parent )
| {
| newparentname := guard( parent.Name(), '' );
| hasparent := ss.ParentName() <> newparentname;
|
| if( ss.HasDescendant( parent ) )
| {
| parent.ParentName( ss.ParentName() );
| }
| ss.ParentName( newparentname );
|
| if( hasparent )
| {
| traverse( ss, AllChildren.AsChildren, c )
| {
| c.SetAllParent();
| }
| }
| }
| *]
| }
|
|
