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 DeleteStoppedOptimizerRuns
| {
| Description: 'When a new `LibOpt_ControllerRun` is created, then all stopped runs older than `MaxAgeFinishedControllerRuns` are deleted to free up space.'
| TextBody:
| [*
| // evr3 Apr-29-2022 (created)
| now := DateTime::ActualTime();
|
| traverse( this,
| ControllerRun,
| run,
| run.HasStopped()
| and now - run.RequestedOn() > this.MaxAgeFinishedControllerRuns() )
| {
| run.Delete();
| }
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
