anchor.diff:    aPubEntry: TIMBEventEntry; aIndicEntry, aSocEntry: TIMBEventEntry);
   var
     oraSession: TOraSession;
  -  entries: TPaletteRampEntryArray;
  +  //entries: TPaletteRampEntryArray;
  +  entries: TPaletteDiscreteEntryArray;
   begin
     // TODO
     inherited Create(aScenario, aDomain, aID, aName, aDescription);
  
positive.code:   entries[5] := TRampPaletteEntry.Create(HighChargeColor, 90, '');
    entries[6] := TRampPaletteEntry.Create(HighChargeColor, 100, '100');
    fSoCPalette := TRampPalette.Create('State of Charge', entries, Nothing, Nothing, HighChargeColor);
  
    legendJSON := BuildRamplLegendJSON(fSoCPalette);
  
    oraSession := TOraSession.Create(nil);
    try
  
negative.code: 
    LoadBusDefaults;
  
    ClientMessageHandlers.AddOrSetValue('measure',
      procedure(aProject: TProject; aClient: TClient; const aType: string; aPayload: TJSONObject)
      var
        formID: string;
  