bugfix

yypsybs

2023-09-22 585b0c8daf1305c498186609fb82b79c12a02e29

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
28
Quintiq file version 2.0
#parent: #root
Method ClearMessageIntegrationLog
{
  Description: 'Clean up message according to Kt setting'
  TextBody:
  [*
    nrofrecords := this.MessageIntegrationLog( relsize );
    
    if ( nrofrecords > this.MaxNrOfMessageIntegrationLogToKeep() )
    {
      nrofrecordtoremove := nrofrecords - this.MaxNrOfMessageIntegrationLogToKeep();
      logs := selectsortedset(  this, MessageIntegrationLog, msg, true, msg.Received() );;
      
      traverse( logs, Elements, msglog, nrofrecordtoremove > 0 )
      {
        msglog.Delete();
        nrofrecordtoremove := nrofrecordtoremove -1 ; 
      }  
    }
    
    today := Date::Today();
    removebeforedate := today - this.DaysToKeepMessageIntegrationLog();
    logs := selectset(  this, MessageIntegrationLog, msg, true, msg.Received().Date() < removebeforedate );
    
    MessageIntegrationLog::Delete( logs );
  *]
}