1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Quintiq file version 2.0
| #parent: #root
| Method GetDescendants () as owning Entitys
| {
| Description: 'Get childs of object that call this method'
| TextBody:
| [*
| descendants := construct( Entitys );
| descendants.Add( this );
|
| traverse( this, ChildEntity, child )
| {
| childRecursive := child.GetDescendants();
|
| if( childRecursive.Size() > 0 )
| {
| descendants := descendants.Add( childRecursive );
| }
| }
|
| return &descendants;
| *]
| }
|
|
