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
| Quintiq file version 2.0
| #parent: #root
| Method SetAllParent
| {
| Description: 'Set all parents'
| TextBody:
| [*
| //this is to replace the getallchildrenkey
| traverse( this, AllParent, ap )
| {
| ap.IsCurrent( false );
| }
| allparent := this.GetAllParent();
|
| traverse( allparent, Elements, parent )
| {
| pssiss := select( this, AllParent, ap, ap.AsParent() = parent, true );
|
| if( isnull( pssiss ) )
| {
| pssiss := this.AllParent( relnew, AsParent := parent );
| }
| pssiss.IsCurrent( true );
| }
|
| traverse( this, AllParent, ap, not ap.IsCurrent() )
| {
| ap.Delete();
| }
| *]
| }
|
|
