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: 
  implementation
  
  //const
    // TODO: DB Legend? Ini?
    //NoChargeColor: TAlphaRGBPixel = $FFFF0000;
    //LowChargeColor: TAlphaRGBPixel = $FFFFA500;
    //MediumChargeColor: TAlphaRGBPixel = $FFFFFF00;
    //HighChargeColor: TAlphaRGBPixel = $FF008000;
    //Nothing: TAlphaRGBPixel = $AAAAAAAA;
  
  function SantosTimeToDateTime(const aTime: string; aBaseDay: Array of word): TDateTime;
  var
  