yanweiyuan3
2023-10-10 d901b1ab0ee0b690f5ac211b9cdb1db3a58bca86
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
Quintiq file version 2.0
#parent: #root
MethodOverride GetSnapshotsForKpi (String kpiName, Number top) as owning KpiSnapshotSetData
{
  TextBody:
  [*
    set := construct( KpiSnapshotSetData );
    
    storage       := this.Storage();
    nrOfSnapshots := minvalue(  storage.NumberOfSnapshots(), top );
    snapshot      := storage.LastSnapshot();
    
    while ( nrOfSnapshots > 0 and not isnull( snapshot ) ) 
    {
      if ( snapshot.Configuration().HasKpi( kpiName ) )
      {
        data := DssKpiSnapshotRetrieval::ConvertSnapshotToTransportType( snapshot, kpiName );
        set.SnapshotData( relinsert, &data );
        nrOfSnapshots--;
      }
      snapshot := snapshot.PreviousSnapshot();
    }
    
    return &set;
  *]
}