| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 | | Quintiq file version 2.0 |  | #parent: #root |  | Method CleanupIntegrationEvents |  | { |  |   TextBody: |  |   [* |  |     maxAge := Duration::Days( 30 ); // TODO: configurable |  |     now    := DateTime::Now(); |  |      |  |     // Cleanup IntegrationEvent where the age is over 30 days |  |     traverse( this, IntegrationEvent, event, |  |               now - event.TimestampLastUpdated() > maxAge ) |  |     { |  |       event.Delete(); |  |     } |  |   *] |  | } | 
 |