renhao
2023-09-21 1aa9f2bb83dd9e4b7517f1cbf06b0db53979bb31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Quintiq file version 2.0
#parent: #root
MethodOverride GetLastSnapshots (Number top) as owning KpiSnapshotSetData
{
  TextBody:
  [*
    set := construct( KpiSnapshotSetData );
    
    storage       := this.Storage();
    nrOfSnapshots := storage.NumberOfSnapshots();
    
    for ( index := nrOfSnapshots - 1; index  >= maxvalue( nrOfSnapshots - top, 0 ); index -- )
    {
      snapshot := storage.Snapshot( relget ).Element( index );
      data     := DssKpiSnapshotRetrieval::ConvertSnapshotToTransportType( snapshot );
      
      set.SnapshotData( relinsert, &data );
    }
    
    return &set;
  *]
}