Tesla Fleet API: čtení SoC po příjezdu k wallboxu

- services/tesla_client.py: access token s cache + ROTACE refresh tokenu do
  ems.tesla_token (env jen seed — Tesla refresh token je jednorázový),
  vehicles → vehicle_data?endpoints=charge_state, 408 (spící auto) = tiché
  přeskočení, výběr vozidla dle VIN / jediného na účtu (VIN se auto-naučí)
- hook _patch_session_from_tesla v _on_ev_arrival: PŘED replanem doplní
  soc_at_connect_pct (+ target z charge_limit_soc) do otevřené session přes
  fn_ev_session_apply_patch (rozšířena o soc_at_connect_pct) — energii si
  odvodí fn_planning_site_context (SQL-first); selhání neblokuje replan
- V086: asset_vehicle.vin, api_type='tesla' pro tesla-my (Model Y, home-01),
  singleton ems.tesla_token; R__095: fn_tesla_token_get/upsert,
  fn_tesla_arrival_context, fn_vehicle_set_vin
- config: TESLA_CLIENT_ID/SECRET/REFRESH_TOKEN (prázdné = vypnuto)
- testy parserů; plná sada beze změny

Aktivace: env do /opt/ems-deploy/.env + recreate backendu (docs/tesla-fleet-api.md §Stav).

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

db/routines/R__015_fn_ev_session_patch.sql

@@ -9,7 +9,9 @@ as $fn$
 declare
   v_id int;
 begin
-  if not (p_patch ? 'target_soc_pct') and not (p_patch ? 'target_deadline') then
+  if not (p_patch ? 'target_soc_pct')
+    and not (p_patch ? 'target_deadline')
+    and not (p_patch ? 'soc_at_connect_pct') then
     return jsonb_build_object('success', false, 'error', 'no_fields');
   end if;
 
@@ -24,6 +26,16 @@ begin
         end
       else es.target_soc_pct
     end,
+    -- skutečné SoC při připojení (Tesla Fleet API po příjezdu)
+    soc_at_connect_pct = case
+      when p_patch ? 'soc_at_connect_pct' then
+        case
+          when p_patch->'soc_at_connect_pct' is null
+            or jsonb_typeof(p_patch->'soc_at_connect_pct') = 'null' then null
+          else (p_patch->>'soc_at_connect_pct')::double precision
+        end
+      else es.soc_at_connect_pct
+    end,
     target_deadline = case
       when p_patch ? 'target_deadline' then
         case
@@ -46,4 +58,4 @@ end;
 $fn$;
 
 comment on function ems.fn_ev_session_apply_patch(int, int, jsonb) is
-  'PATCH EV session – jen klíče přítomné v JSON (ISO string pro deadline).';
+  'PATCH EV session – jen klíče přítomné v JSON (ISO string pro deadline; soc_at_connect_pct z Tesla API).';