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
| Quintiq file version 2.0
| #parent: #root
| Method UpdatePeriodTask (
| Date periodstart,
| UnitPeriod unitperiod,
| Real maxloadratio
| ) as PeriodTask_MP
| {
| Description: 'Update period task quantity'
| TextBody:
| [*
| periodtasks := unitperiod.PeriodTask_MP( relget );
| periodtask := select( periodtasks, Elements.astype( PeriodTaskOperation ), pt, true );
| // for testing we just need 1 periodtask
| if ( periodtasks.Size() >1 )
| {
| traverse( periodtasks, Elements, p, p <> periodtask )
| {
| p.Delete();
| }
| }
| unitperiod.SetUtilization( maxloadratio, periodtask );
|
| return periodtask;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
