anchor.diff:  //                      if ((changeCount mod 1000) = 0) then
   //                        Log.WriteLn('Calculating changes...' + changeCount.ToString);
                         if FindObject(wdid, o) then
  -                        begin
  +                      begin
   //                          fChangeQuery.ParamByName('OBJECT_ID').AsInteger := entry.objectID;
   //                          fChangeQuery.Execute;
   //                          if not fChangeQuery.Eof then
  
positive.code:   end;
  
    TUSChartValue = class
      constructor Create(aValue: string);
      protected
        fStringValue: string;
        fNumValue: Double;
        fNumber: Boolean;
      public
        function GetJSON: string;
    end;
  
    TUSChartSeries = class
      constructor Create(aLines: TDictionary<string, string>; const aPrefix: string; const aID: Integer; const aSeriesID: string);
      destructor Destroy; override;
    private
      function GetColumnJSON: string;
      protected
        fTitle, fXCol, fYCol, fType, fMultiBar, fStackGroup, fVertAxis: string;
        fID: Integer;
        fActive: Boolean;
        fYValues: TList<TUSChartValue>;
        procedure AddXValues(aValues: array of string);
      public
        property XCol: string read fXCol;
        property YCol: string read fYCol;
        property MultiBar: string read fMultiBar;
        property StackGroup: string read fStackGroup;
        property VertAxis: string read fVertAxis;
        property Active: Boolean read fActive;
        property Title: string read fTitle;
        procedure FillData(aData: TDictionary<string, TStringList>);
    end;
  
    TUSChart = class(TChart)
      constructor Create(aScenario: TScenario; aLines: TDictionary<string, string>; aPrefix, aGroup, aTitle, aTableName: string);
      destructor Destroy; override;
    private
      fTitle, fGroup, fJSON: string;
      fSeries: TDictionary<string, TUSChartSeries>;
  
negative.code:   m: Integer;
  begin
    // todo:
    if not TableExists(OraSession, MEASURES_TABLE_NAME) then
    begin
      // add table
      OraSession.ExecSQL(
        'CREATE TABLE '+MEASURES_TABLE_NAME+'('+
          'OBJECT_ID NUMBER,'+
          'CATEGORY VARCHAR2(100 BYTE),'+
          'MEASURE VARCHAR2(100 BYTE),'+
  