EV spotřební forecast: týdenní rytmus vozidla → target SoC a deadline session

Myšlenka uživatele: pondělní služebka ~150 km (~35 kWh) chce skoro plnou,
konec týdne stačí míň, víkend = levné sloty na přípravu pondělka.

- V089: ev_vehicle_obs (odometer+SoC při příjezdu/ODJEZDU — auto v obou
  okamžicích vzhůru, žádné buzení navíc), ev_trip (km z odometru, kWh z ΔSoC;
  nabíjení cestou → charged_away flag), ev_usage_stats per (vozidlo, DOW);
  asset_vehicle: target_soc_forecast_enabled (default false), min_target_soc_pct
- R__096: fn_ev_build_trips (párování), fn_update_ev_usage_stats (job 00:50),
  fn_ev_next_departure (příští typický odjezd, >=4 vzorky, >=3 km),
  fn_ev_required_soc (P80 spotřeby dne + 10 p.b., clamp [min_target, 100])
- R__016: session při příjezdu bere forecast target+deadline (za per-vozidlo
  flagem, fallback defaulty, ruční patch vždy vyhrává) → víkendová session
  s pondělním deadline = v2 solver přirozeně nabije v levných slotech
- tesla_client: + vehicle_state endpoint (odometer v MÍLÍCH → km), collector:
  departure hook, lifespan: job 00:50

Aktivace po nasbírání dat: update asset_vehicle set target_soc_forecast_enabled=true.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

db/routines/R__016_fn_ev_session_transition.sql

@@ -45,17 +45,23 @@ begin
       ac.id,
       av.id,
       now(),
-      av.default_target_soc_pct,
-      case
-        when av.default_deadline_hour is not null then
-          (
-            (timezone('Europe/Prague', now()))::date + interval '1 day'
-            + make_interval(hours => av.default_deadline_hour)
-          )::timestamp at time zone 'Europe/Prague'
-      end
+      -- forecast z týdenního rytmu (ev_usage_stats), fallback defaulty;
+      -- ruční přepis přes fn_ev_session_apply_patch vždy vyhrává.
+      coalesce(fc.required_soc, av.default_target_soc_pct),
+      coalesce(
+        fc.expected_departure,
+        case
+          when av.default_deadline_hour is not null then
+            (
+              (timezone('Europe/Prague', now()))::date + interval '1 day'
+              + make_interval(hours => av.default_deadline_hour)
+            )::timestamp at time zone 'Europe/Prague'
+        end
+      )
     from ems.asset_ev_charger ac
     left join lateral (
-      select v.id, v.default_target_soc_pct, v.default_deadline_hour
+      select v.id, v.default_target_soc_pct, v.default_deadline_hour,
+             v.target_soc_forecast_enabled
       from ems.asset_vehicle v
       where v.default_charger_id = ac.id
         and v.site_id = ac.site_id
@@ -63,6 +69,15 @@ begin
       order by v.id
       limit 1
     ) av on true
+    left join lateral (
+      select dep.expected_departure,
+             ems.fn_ev_required_soc(av.id, dep.expected_departure) as required_soc
+      from (
+        select ems.fn_ev_next_departure(av.id, now()) as expected_departure
+      ) dep
+      where av.target_soc_forecast_enabled
+        and dep.expected_departure is not null
+    ) fc on true
     where ac.id = p_charger_id
       and ac.site_id = p_site_id
     on conflict (charger_id) where session_end is null do nothing;