(chp results) loop elec stor, don't hardcode "ElectricStorage"

src/results/chp.jl

@@ -60,7 +60,7 @@ function add_chp_results(m::JuMP.AbstractModel, p::REoptInputs, d::Dict; _n="")
     r["electric_to_grid_series_kw"] = round.(value.(CHPtoGrid), digits=3)
 	if !isempty(p.s.storage.types.elec)
 		@expression(m, CHPtoBatt[ts in p.time_steps],
-			sum(m[Symbol("dvProductionToStorage"*_n)]["ElectricStorage",t,ts] for t in p.techs.chp))
+			sum(m[Symbol("dvProductionToStorage"*_n)][b,t,ts] for t in p.techs.chp, b in p.s.storage.types.elec))
 	else
 		CHPtoBatt = zeros(length(p.time_steps))
 	end