1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Quintiq file version 2.0
| #parent: #root
| Method Cleanup
| {
| Description: 'Deletes violations in manual delete groups that are older than the cleanup interval duration'
| TextBody:
| [*
| now := DateTime::ActualTime();
| clean_interval := this.GetCleanupInterval();
|
| manual_delete_groups := selectset( this, Group, grp, grp.CanManualDelete() );
|
| traverse( manual_delete_groups, Elements.Check.Message, m
| , m.Created().IsFinite() and now - m.Created() > clean_interval )
| {
| m.Delete();
| }
| *]
| }
|
|
