1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Quintiq file version 2.0
| #parent: #root
| Method IsInUnitPeriod (
| UnitPeriods unitperiods
| ) declarative remote as Boolean
| {
| Description: 'Used by filter in designer'
| TextBody:
| [*
| // soh yee Aug-25-2015 (created)
| value := false;
|
| traverse( unitperiods, Elements, e, not value )
| {
| value := exists( e.GetBaseUnitPeriods(), Elements, bup, bup = this.UnitPeriod() );
| }
|
| return value;
| *]
| }
|
|
