dalsi pokus o fix nevyliti baterky pred zapornou cenou

db/routines/R__063_fn_load_planning_slots_full.sql

@@ -666,6 +666,22 @@ begin
       and wk.sell_price < v_morning_zone_peak_sell - v_degrad_czk_kwh;
   end if;
 
+  -- Ranní peak před sell<0: jen export baterie, ne souběžné nabíjení (LP jinak „nabije“ v 07:00).
+  if v_first_neg_sell_ord is not null and v_first_neg_prague_date is not null then
+    update _ems_plan_slot_wk wk
+    set allow_charge = false
+    where wk.allow_discharge_export
+      and wk.slot_ord < v_first_neg_sell_ord
+      and (wk.interval_start at time zone 'Europe/Prague')::date = v_first_neg_prague_date
+      and extract(hour from wk.interval_start at time zone 'Europe/Prague')
+        between v_morning_preneg_start_hour and v_morning_preneg_end_hour;
+  end if;
+
+  -- Záporný buy: vždy grid nabíjení (mimo rozpočet 6 slotů / PV vrstvu A).
+  update _ems_plan_slot_wk wk
+  set allow_charge = true, allow_grid_charge = true
+  where wk.buy_price < 0;
+
   -- Acquisition: grid nabíjení před prvním exportem ve STEJNÝ den jako záporné výkupní okno
   -- (ne dřívější večerní export v horizontu rolling replanu).
   select min(wk.interval_start)