1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Quintiq file version 2.0
| #parent: #root
| Method HasDescendant (
| Unit target
| ) remote as Boolean
| {
| Description: 'Whether this product has descendant = target'
| TextBody:
| [*
| // soh yee 3-Apr-2013 (modified)
|
| value := target = this;
|
| if( this.Child( relsize ) > 0 )
| {
| value := exists( this, Child, ch, ch.HasDescendant( target ) ) or value;
| }
|
| return value;
| *]
| }
|
|
