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
| StaticMethod HasAllowed (
| output String feedback_o,
| UnitShiftPatterns unitshiftpatterns,
| Boolean allowed
| ) remote as Boolean
| {
| Description: 'Precondition method to enable or disable shift patterns on units.'
| TextBody:
| [*
| // Check if input unit shift patterns has already enabled/disabled
| isAllowed := exists( unitshiftpatterns, Elements, usp, true, usp.IsAllowed() <> allowed );
| if( not isAllowed )
| {
| feedback_o := ifexpr( allowed, Translations::MP_UnitShiftPattern_AlreadyEnabled(), Translations::MP_UnitShiftPattern_AlreadyDisabled() );
| }
| return isAllowed;
| *]
| }
|
|
