03b7396676
Patch po příjezdu přepisoval target_soc_pct limitem auta (LFP 100 %) a zahazoval kaskádu fn_ev_session_defaults (default vozidla 30 %) — auto by se v noci tlačilo do plna ze sítě proti vůli majitele (session #2 dnes). Nově se target snižuje jen pokud je limit auta POD ním; fn_tesla_arrival_context vrací i target_soc_pct session. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
82 lines
2.3 KiB
SQL
82 lines
2.3 KiB
SQL
-- Tesla Fleet API – DB vrstva (SQL-first): tokeny, kontext příjezdu, učení VIN.
|
||
|
||
create or replace function ems.fn_tesla_token_get()
|
||
returns jsonb
|
||
language sql
|
||
stable
|
||
as $fn$
|
||
select coalesce(
|
||
(select jsonb_build_object(
|
||
'refresh_token', t.refresh_token,
|
||
'access_token', t.access_token,
|
||
'access_expires_at', t.access_expires_at,
|
||
'updated_at', t.updated_at
|
||
) from ems.tesla_token t where t.id = 1),
|
||
'{}'::jsonb
|
||
);
|
||
$fn$;
|
||
|
||
create or replace function ems.fn_tesla_token_upsert(
|
||
p_refresh_token text,
|
||
p_access_token text,
|
||
p_access_expires_at timestamptz
|
||
)
|
||
returns void
|
||
language sql
|
||
as $fn$
|
||
insert into ems.tesla_token (id, refresh_token, access_token, access_expires_at, updated_at)
|
||
values (1, p_refresh_token, p_access_token, p_access_expires_at, now())
|
||
on conflict (id) do update set
|
||
refresh_token = excluded.refresh_token,
|
||
access_token = excluded.access_token,
|
||
access_expires_at = excluded.access_expires_at,
|
||
updated_at = now();
|
||
$fn$;
|
||
|
||
-- Kontext pro hook po příjezdu EV: vozidlo navázané na charger (default_charger_id)
|
||
-- + otevřená session. NULL vehicle => nic nedělat.
|
||
create or replace function ems.fn_tesla_arrival_context(
|
||
p_site_id int,
|
||
p_charger_code text
|
||
)
|
||
returns jsonb
|
||
language sql
|
||
stable
|
||
as $fn$
|
||
select coalesce(jsonb_build_object(
|
||
'vehicle_id', v.id,
|
||
'api_type', v.api_type,
|
||
'vin', v.vin,
|
||
'battery_capacity_kwh', v.battery_capacity_kwh,
|
||
'session_id', s.id,
|
||
'soc_at_connect_pct', s.soc_at_connect_pct,
|
||
'target_soc_pct', s.target_soc_pct
|
||
), '{}'::jsonb)
|
||
from ems.asset_ev_charger c
|
||
join ems.asset_vehicle v
|
||
on v.site_id = c.site_id and v.default_charger_id = c.id and v.active
|
||
left join lateral (
|
||
select es.id, es.soc_at_connect_pct, es.target_soc_pct
|
||
from ems.ev_session es
|
||
where es.charger_id = c.id and es.session_end is null
|
||
order by es.id desc
|
||
limit 1
|
||
) s on true
|
||
where c.site_id = p_site_id and c.code = p_charger_code;
|
||
$fn$;
|
||
|
||
create or replace function ems.fn_vehicle_set_vin(
|
||
p_vehicle_id int,
|
||
p_vin text
|
||
)
|
||
returns void
|
||
language sql
|
||
as $fn$
|
||
update ems.asset_vehicle
|
||
set vin = p_vin
|
||
where id = p_vehicle_id and (vin is null or vin = '');
|
||
$fn$;
|
||
|
||
comment on function ems.fn_tesla_arrival_context is
|
||
'Vozidlo + otevřená session pro charger (hook po příjezdu EV → Tesla SoC).';
|