LP first zjednoduseni

db/routines/R__063_fn_load_planning_slots_full.sql

@@ -381,7 +381,7 @@ begin
 
   -- charge mask: grid arbitráž (B) před FVE (A); AM/PM rozpočet Wh zůstává 50/50.
   --
-  --   B) Grid ze sítě: spot, buy v pásmu AM/PM ≤ min(buy v pásmu)+band, lookahead VT→NT;
+  --   B) Grid ze sítě: spot, nejlevnější sloty v AM/PM do Wh rozpočtu (den plánu → před exportním oknem → buy ASC);
   --      i při pv_surplus>0; cap slotů ∝ rozpočet Wh / per_slot_charge_wh.
   --   A) PV-surplus: store_score DESC, doplní jen zbytek do energy_to_fill po vrstvě B.
   if v_charge_buf <= 0 then
@@ -400,11 +400,6 @@ begin
         select wk.slot_ord
         from _ems_plan_slot_wk wk
         where extract(hour from wk.interval_start at time zone 'Europe/Prague') < 12
-          and wk.buy_price <= v_ref_buy_am_czk_kwh + v_buy_charge_band_czk_kwh
-          and (
-            wk.buy_min_next_n is null
-            or wk.buy_price <= wk.buy_min_next_n + v_buy_lookahead_eps
-          )
         order by
           case
             when (wk.interval_start at time zone 'Europe/Prague')::date = v_plan_day_prague
@@ -439,11 +434,6 @@ begin
         select wk.slot_ord
         from _ems_plan_slot_wk wk
         where extract(hour from wk.interval_start at time zone 'Europe/Prague') >= 12
-          and wk.buy_price <= v_ref_buy_pm_czk_kwh + v_buy_charge_band_czk_kwh
-          and (
-            wk.buy_min_next_n is null
-            or wk.buy_price <= wk.buy_min_next_n + v_buy_lookahead_eps
-          )
         order by
           case
             when (wk.interval_start at time zone 'Europe/Prague')::date = v_plan_day_prague
@@ -480,6 +470,8 @@ begin
       from _ems_plan_slot_wk wk
       where wk.pv_surplus_w > 0
         and wk.sell_price >= wk.buy_price - v_degrad_czk_kwh
+        -- Držet PV na večerní peak: ne nabíjet z FVE když sell výrazně pod budoucím výkupním oknem.
+        and wk.sell_price >= wk.future_sell_lookahead - v_degrad_czk_kwh
       order by wk.store_score desc nulls last, wk.slot_ord
     loop
       exit when v_cum >= v_pv_layer_cap_wh;
@@ -671,7 +663,7 @@ $fn$;
 comment on function ems.fn_load_planning_slots_full is
   '15min sloty s cenami, forecastem, baseline a maskami proti mikro-cyklu (charge/discharge-export). '
   'Charge mask A: PV-surplus dle store_score DESC (future_sell−sell−max(0,buy−sell)); zbytek → PV export. '
-  'Charge mask B: non-PV jen spot, buy≤ref_buy+degrad, lookahead min buy v N slotech, cap 6 slotů AM/PM. '
+  'Charge mask B: spot, nejlevnější buy v AM/PM do Wh rozpočtu (priorita den plánu, před exportním oknem). '
   'ref_buy = min(buy) horizontu. Discharge-export: nejdražší sell kde sell>ref_buy+degrad (spot). '
   'Strop SoC pro výpočet energie k dobití: coalesce(planner_max_soc_percent, max_soc_percent). '
   'Denní safety vstupy: night_baseload_* (20:00–06:00 Europe/Prague), safety_soc_target_wh (6–19), '