更新 _ROOT_Component_DialogMaintainArchivedFiles.def

xiaoding721

2024-11-11 241e9cbbf2b1cfa6c06591ddfc6344a6261ca87a

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
29
30
31
32
Quintiq file version 2.0
#parent: #root
Method UpdateUnitCalendar
{
  Description: 'Update windows of unit calendar'
  TextBody:
  [*
    now := this.Time();
    
    windowlength := 0;
    historylength :=0;
    calendarregistry := this.CalendarRegistry();
    
    if ( not isnull( calendarregistry ) )
    {
      commoncalendar := calendarregistry.CommonCalendar();
     
      if ( not isnull( commoncalendar ) )
      {
        Transaction::Transaction().Propagate( attribute( MacroPlan, Start ));
        Transaction::Transaction().Propagate( attribute( MacroPlan, End ));
        
        if( now.IsFinite() and this.Start().IsFinite() and this.End().IsFinite() )
        {
          
          calendarregistry.GetCalendarWindow( windowlength, historylength );
          calendarregistry.UpdateAllCalendars( commoncalendar.Base(), commoncalendar.UpdateInterval(), windowlength, historylength );
        }
      }  
    }
  *]
}