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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Quintiq file version 2.0
#parent: #root
Method RefreshData () id:Method_SC_frmScenarioCompare_RefreshData
{
  #keys: '[136398.1.957240028]'
  Accessibility: 'Extensible'
  Body:
  [*
    // Queries the KPI Tracker for the KPI compare data
    compareLabel := selKpiCompareLabel.Data();
    compareLabels := selectset( dhSelectedCompareLabelValues.Data(), Elements, val, 
                                val.Label() = compareLabel );
    
    fixedLabels := selectset( dhSelectedFilterLabelValues.Data(), Elements, val, 
                              val.Label() <> compareLabel );
    
    set := Kpi_GlobalState.QueryDataFromServer( compareLabels, fixedLabels );
    
    Kpi_GlobalState.PropagateLabel( set, compareLabel.Name() );
    Kpi_GlobalState.PropagateTimeStamp( set, rbgTimeType.BoundValue() );
    
    //Remove duplicate values and set relations
    uniquesetdatavalues := construct( Strings )
    sortedsetsnapshots := selectsortedset( set, SnapshotData, snapshot, true, DateTime::Now() - snapshot.ServerDateTime() )
    
    traverse( sortedsetsnapshots, Elements, snapshot )
    {                                               
      traverse( snapshot, Value, datavalue )
      {
        uniquestring := datavalue.Name() + ";" + datavalue.UI_LabelValue()
        if( exists( uniquesetdatavalues, Elements, value, value = uniquestring ) )
        { //remove older duplicate   
          datavalue.Delete();
        }                    
        else
        {                      
          uniquesetdatavalues.Add( uniquestring)
        }
      }
    }  
    
                            
    // Set relations
    traverse( set, SnapshotData.Value, v ) 
    {
      v.UI_CompareLabel( relset, select( compareLabels, Elements, s, s.Value() = v.UI_LabelValue() ) );
      v.UI_Kpi( relset, select( KpiTracker, MetaData, k, k.Name() = v.Name() ) );
    }  
     
    dhSnapshotData.Data( &set );
  *]
  UseInheritedAccessibility: false
}