anchor.diff:                stop.charger.poleType := strPoleType;
                 stop.charger.numberOfPoles := poleCount;
                 stop.charger.maxPower := maxPower;
  +
  +              (scenario.project as TSantosProject).fCurrentChargerID := stop.charger.objectID;
  +              (scenario.project as TSantosProject).fCurrentChargerStopName := stop.name;
  +
                 oraSession := TOraSession.Create(nil);
                 try
                   oraSession.connectString := fConnectString;
  
positive.code:                 try
                    oraSession.connectString := fConnectString;
                    oraSession.Open;
  
                    (scenario.project as TSantosProject).ReadChartBlockSoC(oraSession, scenario, fTablePrefix, busid);
                  finally
                    oraSession.Free;
  
negative.code: const
    ChgPwrChartID = 'santosPeakBusses';
  begin
    //if aName.IsEmpty
    //then name := ' Charge Location ' + aCharger.ToString
    //else name := aName;
    name := aName;
    {$IFDEF DEBUG}
    Log.WriteLn('Loading peak busses chart for: ' + name);
    {$ENDIF}
    zero := SantosTimeToDateTime('00:00', fBaseDay);
    tableName := aTablePrefix + 'EBUS_INDIC_DAT' + cINDIC_DAT_TYPE_GRID + aCharger.ToString.PadLeft(cINDIC_DAT_TYPE_ID_LENGTH,'0') + cINDIC_DAT_GRID_PEAK_BUSSES;
  
    tableExists := MyOraLib.TableExists(aSession, tableName);
  
    chartID := ChgPwrChartID;// + aCharger.ToString;
  
    TMonitor.Enter(aScenario.Charts);
    try
  