pg_catalog.split_part(version,'.',1)::int OR
( pg_catalog.split_part(curver_text,'.',1) = pg_catalog.split_part(version,'.',1) AND
pg_catalog.split_part(curver_text,'.',2) != split_part(version,'.',2) )
THEN
RAISE WARNING '% signature was deprecated in %. Please use %', oldname, version, newname;
ELSE
RAISE DEBUG '% signature was deprecated in %. Please use %', oldname, version, newname;
END IF;
END;]]>
9 THEN pg_catalog.split_part(s,'.',1) || '0'
ELSE pg_catalog.split_part(s,'.', 1) || pg_catalog.split_part(s,'.', 2) END AS v
FROM pg_catalog.substring(version(), 'PostgreSQL ([0-9\.]+)') AS s;]]>
1 THEN -- scale the result back
var_resultgeom := public.ST_Scale(var_resultgeom, 1/scale_factor, 1/scale_factor);
END IF;
-- make sure result covers original (#3638)
-- Using ST_UnaryUnion since SFCGAL doesn't replace with its own implementation
-- and SFCGAL one chokes for some reason
var_resultgeom := public.ST_UnaryUnion(public.ST_Collect(param_inputgeom, var_resultgeom) );
RETURN var_resultgeom;
END;]]>
't') THEN
CREATE TEMP TABLE temp_lock_have_table (transid xid, lockcode text);
-- this will only work from pgsql7.4 up
-- ON COMMIT DELETE ROWS;
END IF;
-- INSERT INTO mylock VALUES ( $1)
-- EXECUTE 'INSERT INTO temp_lock_have_table VALUES ( '||
-- quote_literal(getTransactionID()) || ',' ||
-- quote_literal(lockid) ||')';
INSERT INTO temp_lock_have_table VALUES (getTransactionID(), lockid);
RETURN true::boolean;
END;]]>
4) OR (new_dim <2) ) THEN
RAISE EXCEPTION 'invalid dimension';
RETURN 'fail';
END IF;
IF ( (new_type LIKE '%M') AND (new_dim!=3) ) THEN
RAISE EXCEPTION 'TypeM needs 3 dimensions';
RETURN 'fail';
END IF;
-- Verify SRID
IF ( new_srid_in > 0 ) THEN
IF new_srid_in > 998999 THEN
RAISE EXCEPTION 'AddGeometryColumn() - SRID must be <= %', 998999;
END IF;
new_srid := new_srid_in;
SELECT SRID INTO sr FROM spatial_ref_sys WHERE SRID = new_srid;
IF NOT FOUND THEN
RAISE EXCEPTION 'AddGeometryColumn() - invalid SRID';
RETURN 'fail';
END IF;
ELSE
new_srid := public.ST_SRID('POINT EMPTY'::public.geometry);
IF ( new_srid_in != new_srid ) THEN
RAISE NOTICE 'SRID value % converted to the officially unknown SRID value %', new_srid_in, new_srid;
END IF;
END IF;
-- Verify schema
IF ( schema_name IS NOT NULL AND schema_name != '' ) THEN
sql := 'SELECT nspname FROM pg_namespace ' ||
'WHERE text(nspname) = ' || quote_literal(schema_name) ||
'LIMIT 1';
RAISE DEBUG '%', sql;
EXECUTE sql INTO real_schema;
IF ( real_schema IS NULL ) THEN
RAISE EXCEPTION 'Schema % is not a valid schemaname', quote_literal(schema_name);
RETURN 'fail';
END IF;
END IF;
IF ( real_schema IS NULL ) THEN
RAISE DEBUG 'Detecting schema';
sql := 'SELECT n.nspname AS schemaname ' ||
'FROM pg_catalog.pg_class c ' ||
'JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace ' ||
'WHERE c.relkind = ' || quote_literal('r') ||
' AND n.nspname NOT IN (' || quote_literal('pg_catalog') || ', ' || quote_literal('pg_toast') || ')' ||
' AND pg_catalog.pg_table_is_visible(c.oid)' ||
' AND c.relname = ' || quote_literal(table_name);
RAISE DEBUG '%', sql;
EXECUTE sql INTO real_schema;
IF ( real_schema IS NULL ) THEN
RAISE EXCEPTION 'Table % does not occur in the search_path', quote_literal(table_name);
RETURN 'fail';
END IF;
END IF;
-- Add geometry column to table
IF use_typmod THEN
sql := 'ALTER TABLE ' ||
quote_ident(real_schema) || '.' || quote_ident(table_name)
|| ' ADD COLUMN ' || quote_ident(column_name) ||
' geometry(' || public.postgis_type_name(new_type, new_dim) || ', ' || new_srid::text || ')';
RAISE DEBUG '%', sql;
ELSE
sql := 'ALTER TABLE ' ||
quote_ident(real_schema) || '.' || quote_ident(table_name)
|| ' ADD COLUMN ' || quote_ident(column_name) ||
' geometry ';
RAISE DEBUG '%', sql;
END IF;
EXECUTE sql;
IF NOT use_typmod THEN
-- Add table CHECKs
sql := 'ALTER TABLE ' ||
quote_ident(real_schema) || '.' || quote_ident(table_name)
|| ' ADD CONSTRAINT '
|| quote_ident('enforce_srid_' || column_name)
|| ' CHECK (st_srid(' || quote_ident(column_name) ||
') = ' || new_srid::text || ')' ;
RAISE DEBUG '%', sql;
EXECUTE sql;
sql := 'ALTER TABLE ' ||
quote_ident(real_schema) || '.' || quote_ident(table_name)
|| ' ADD CONSTRAINT '
|| quote_ident('enforce_dims_' || column_name)
|| ' CHECK (st_ndims(' || quote_ident(column_name) ||
') = ' || new_dim::text || ')' ;
RAISE DEBUG '%', sql;
EXECUTE sql;
IF ( NOT (new_type = 'GEOMETRY')) THEN
sql := 'ALTER TABLE ' ||
quote_ident(real_schema) || '.' || quote_ident(table_name) || ' ADD CONSTRAINT ' ||
quote_ident('enforce_geotype_' || column_name) ||
' CHECK (GeometryType(' ||
quote_ident(column_name) || ')=' ||
quote_literal(new_type) || ' OR (' ||
quote_ident(column_name) || ') is null)';
RAISE DEBUG '%', sql;
EXECUTE sql;
END IF;
END IF;
RETURN
real_schema || '.' ||
table_name || '.' || column_name ||
' SRID:' || new_srid::text ||
' TYPE:' || new_type ||
' DIMS:' || new_dim::text || ' ';
END;]]>
true ) THEN
RAISE NOTICE 'Invalid schema name - using current_schema()';
SELECT current_schema() into real_schema;
ELSE
real_schema = schema_name;
END IF;
ELSE
SELECT current_schema() into real_schema;
END IF;
-- Find out if the column is in the geometry_columns table
okay = false;
FOR myrec IN SELECT * from public.geometry_columns where f_table_schema = text(real_schema) and f_table_name = table_name and f_geometry_column = column_name LOOP
okay := true;
END LOOP;
IF (okay <> true) THEN
RAISE EXCEPTION 'column not found in geometry_columns table';
RETURN false;
END IF;
-- Remove table column
EXECUTE 'ALTER TABLE ' || quote_ident(real_schema) || '.' ||
quote_ident(table_name) || ' DROP COLUMN ' ||
quote_ident(column_name);
RETURN real_schema || '.' || table_name || '.' || column_name ||' effectively removed.';
END;]]>
0 ) THEN
schem = substr(tabl,1,strpos(tabl,'.')-1);
tabl = substr(tabl,length(schem)+2);
END IF;
select SRID into sr from public.geometry_columns where (f_table_schema = schem or schem = '') and f_table_name = tabl and f_geometry_column = $3;
IF NOT FOUND THEN
RAISE EXCEPTION 'find_srid() - could not find the corresponding SRID - is the geometry registered in the GEOMETRY_COLUMNS table? Is there an uppercase/lowercase mismatch?';
END IF;
return sr;
END;]]>
0 AND postgis_constraint_srid(gcs.nspname, gcs.relname,gcs.attname) IS NULL ) THEN
BEGIN
EXECUTE 'ALTER TABLE ONLY ' || quote_ident(gcs.nspname) || '.' || quote_ident(gcs.relname) ||
' ADD CONSTRAINT ' || quote_ident('enforce_srid_' || gcs.attname) ||
' CHECK (ST_srid(' || quote_ident(gcs.attname) || ') = ' || gsrid || ')';
constraint_successful := true;
EXCEPTION
WHEN check_violation THEN
RAISE WARNING 'Not inserting ''%'' in ''%.%'' into geometry_columns: could not apply constraint CHECK (st_srid(%) = %)', quote_ident(gcs.attname), quote_ident(gcs.nspname), quote_ident(gcs.relname), quote_ident(gcs.attname), gsrid;
gc_is_valid := false;
END;
END IF;
-- Try to apply ndims check to column
IF (gndims IS NOT NULL AND postgis_constraint_dims(gcs.nspname, gcs.relname,gcs.attname) IS NULL ) THEN
BEGIN
EXECUTE 'ALTER TABLE ONLY ' || quote_ident(gcs.nspname) || '.' || quote_ident(gcs.relname) || '
ADD CONSTRAINT ' || quote_ident('enforce_dims_' || gcs.attname) || '
CHECK (st_ndims(' || quote_ident(gcs.attname) || ') = '||gndims||')';
constraint_successful := true;
EXCEPTION
WHEN check_violation THEN
RAISE WARNING 'Not inserting ''%'' in ''%.%'' into geometry_columns: could not apply constraint CHECK (st_ndims(%) = %)', quote_ident(gcs.attname), quote_ident(gcs.nspname), quote_ident(gcs.relname), quote_ident(gcs.attname), gndims;
gc_is_valid := false;
END;
END IF;
-- Try to apply geometrytype check to column
IF (gtype IS NOT NULL AND postgis_constraint_type(gcs.nspname, gcs.relname,gcs.attname) IS NULL ) THEN
BEGIN
EXECUTE 'ALTER TABLE ONLY ' || quote_ident(gcs.nspname) || '.' || quote_ident(gcs.relname) || '
ADD CONSTRAINT ' || quote_ident('enforce_geotype_' || gcs.attname) || '
CHECK (geometrytype(' || quote_ident(gcs.attname) || ') = ' || quote_literal(gtype) || ')';
constraint_successful := true;
EXCEPTION
WHEN check_violation THEN
-- No geometry check can be applied. This column contains a number of geometry types.
RAISE WARNING 'Could not add geometry type check (%) to table column: %.%.%', gtype, quote_ident(gcs.nspname),quote_ident(gcs.relname),quote_ident(gcs.attname);
END;
END IF;
--only count if we were successful in applying at least one constraint
IF constraint_successful THEN
inserted := inserted + 1;
END IF;
END IF;
END IF;
END LOOP;
RETURN inserted;
END]]>
inserted THEN
stale = oldcount-inserted;
ELSE
stale = 0;
END IF;
RETURN 'probed:' ||probed|| ' inserted:'||inserted;
END]]>
= pg_catalog.substring(rec.installed_version, '[0-9]+\.[0-9]+\.[0-9]+')
THEN
sql = format(
'UPDATE pg_catalog.pg_extension SET extversion = ''ANY'' WHERE extname = %1$L;'
'ALTER EXTENSION %1$I UPDATE TO %2$I',
rec.name, target_version
);
-- sandboxed users do standard upgrade
ELSE
sql = format(
'ALTER EXTENSION %1$I UPDATE TO %2$I',
rec.name, target_version
);
END IF;
RAISE NOTICE 'Updating extension % %',
rec.name, rec.installed_version;
RAISE DEBUG '%', sql;
EXECUTE sql;
END IF; --}
END LOOP; --}
RETURN format(
'Upgrade to version %s completed, run SELECT postgis_full_version(); for details',
target_version
);
END]]>
= TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC]]>
= TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC]]>
= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_id,
(
SELECT sd.name
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_name,
ST_DistanceSphere(coord, LEAD(coord, 1) OVER (ORDER BY time)) AS delta_distance,
EXTRACT(EPOCH FROM (LEAD(time, 1) OVER (ORDER BY time) - time)) AS delta_time,
LEAD(alt, 1) OVER (ORDER BY time) - alt AS delta_alt
FROM sms_teltonika_gps_data
WHERE time >= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1 AND
tenant_id = _tenant_id AND serial_number = _serial_number
ORDER BY time
)
INSERT INTO sms_tgd_computed_info(id, tenant_id, delta_time, delta_alt, delta_distance, computed_speed, day_id, shift_day_id, shift_day_name)
SELECT
gps.id AS id,
_tenant_id AS tenant_id,
CASE
WHEN gps.delta_time IS NULL THEN 0.00
ELSE ROUND((gps.delta_time)::numeric, 2)
END AS delta_time,
gps.delta_alt,
CASE
WHEN gps.delta_distance IS NULL THEN 0.00
ELSE ROUND((gps.delta_distance)::numeric, 2)
END AS delta_distance,
CASE
WHEN gps.delta_distance IS NULL THEN 0.00
ELSE ROUND((3.6 * (gps.delta_distance / gps.delta_time))::numeric, 2)
END AS computed_speed,
_day_id AS day_id,
shift_day_id,
shift_day_name
FROM gps]]>
= TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
ORDER BY time
),
-- Format distance and duration and compute and format speed from computed distance and duration
calculated AS (
SELECT
gps.id,
gps.time,
gps.coord,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((filtered.distance)::numeric, 2)
END AS filtered_distance,
CASE
WHEN filtered.duration IS NULL THEN 0.00
ELSE ROUND((filtered.duration)::numeric, 2)
END AS filtered_duration,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((3.6 * (filtered.distance / filtered.duration))::numeric, 2)
END AS filtered_speed
FROM sms_teltonika_gps_data AS gps
JOIN filtered ON filtered.id = gps.id
),
-- Categorize records by move type
typed AS (
SELECT
*,
(
SELECT sd.id
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_id,
(
SELECT sd.name
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_name,
(
SELECT id
FROM sms_shift_day
WHERE EXTRACT(hour from time) * 100 + EXTRACT(minute from time) >= start_hour * 100 + start_minute
AND EXTRACT(hour from time) * 100 + EXTRACT(minute from time) <= end_hour * 100 + end_minute
AND day_mask = EXTRACT(isodow from time)
) AS shift_id,
CASE
WHEN filtered_speed <= 5.0 THEN 'motionless'
WHEN filtered_speed > 5.0 THEN 'travel'
ELSE 'unknown'
END AS type
FROM calculated
),
-- Intersect move coordinates with fixed zones
intersected AS (
SELECT
t.id,
z.id AS zone_id
FROM typed AS t, sms_zone AS z
WHERE
(
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to IS NULL
)
) AND
z.deleted_at IS NULL AND
z.tenant_id = _tenant_id AND
z.site_id = _site_id AND
ST_IsEmpty(ST_Intersection(t.coord, ST_SetSRID(z.polygon, 4326))) = false
),
-- Partition zone-intersected moves
intersected_partitioned AS (
SELECT
intersected.*,
(ROW_NUMBER() OVER (ORDER BY id) - ROW_NUMBER() OVER (PARTITION BY id ORDER BY id)) AS numberer
FROM intersected
),
-- Rank partioned zone-intersected moves
intersected_ranked AS (
SELECT
intersected_partitioned.*,
ROW_NUMBER() OVER (PARTITION BY id, numberer ORDER by id) AS rank
FROM intersected_partitioned
ORDER BY id
),
-- Filter ranked zone-intersected moves
intersected_filtered AS (
SELECT *
FROM intersected_ranked
WHERE rank = 1
),
-- Intersect move coordinates with fixed zones
zoned AS (
SELECT
t.*,
i.zone_id
FROM typed AS t
LEFT JOIN intersected_filtered AS i ON t.id = i.id
),
-- Partition records by row numberer
partitioned AS (
SELECT
zoned.*,
(ROW_NUMBER() OVER (ORDER BY time) - ROW_NUMBER() OVER (PARTITION BY type ORDER BY time)) AS numberer
FROM zoned
),
-- Aggregate duration and distance and calculate centroid and linestring from aggregated positions
linestring_calculated AS (
SELECT
time,
type,
numberer,
ROW_NUMBER() OVER (PARTITION BY type, numberer ORDER by time) AS rank,
SUM(filtered_duration) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS duration,
SUM(filtered_distance) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS distance,
ST_MakeLine(coord) OVER (PARTITION BY type, numberer ORDER BY time) as linestring,
ST_Centroid(ST_UNION(coord) OVER (PARTITION BY type, numberer ORDER BY time)) AS centroid,
shift_day_id,
shift_day_name
FROM partitioned
ORDER BY time
),
-- Filter last linestring or centroid if linestring is single point
linestring_filtered AS (
SELECT
numberer,
type,
CASE
WHEN ST_NumPoints(linestring) > 1 THEN linestring
ELSE ST_Centroid(linestring)
END AS geometry
FROM linestring_calculated
WHERE (numberer, rank, type) IN (SELECT numberer, MAX(rank) as rank, type FROM linestring_calculated GROUP BY type, numberer)
),
-- Add geometry from linestring_filtered to linestring_calculated
geometry_calculated AS (
SELECT
lc.*,
lf.geometry
FROM linestring_calculated AS lc
JOIN linestring_filtered AS lf ON lc.numberer = lf.numberer AND lc.type = lf.type
)
/** Insert new data **/
INSERT INTO sms_loader_move(tenant_id, loader_id, day_id, loader_parameter_id, start_date, type, duration, distance, geometry, centroid, shift_day_id, shift_day_name)
-- Finalize selection
SELECT
_tenant_id AS tenant_id,
_loader_id AS loader_id,
_day_id AS day_id,
_parameter_id AS loader_parameter_id,
time AS start_date,
type,
duration,
distance,
geometry,
centroid,
shift_day_id,
shift_day_name
FROM geometry_calculated
WHERE rank = 1]]>
TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time
),
-- Format distance and duration and compute and format speed from computed distance and duration
calculated AS (
SELECT
gps.id,
gps.time,
gps.coord,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((filtered.distance)::numeric, 2)
END AS filtered_distance,
CASE
WHEN filtered.duration IS NULL THEN 0.00
ELSE ROUND((filtered.duration)::numeric, 2)
END AS filtered_duration,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((3.6 * (filtered.distance / filtered.duration))::numeric, 2)
END AS filtered_speed,
gps.ign,
filtered.dumpster_open,
filtered.dozer_nearby,
filtered.dozer_id
FROM sms_teltonika_scraper_gps_data AS gps
JOIN filtered ON filtered.id = gps.id
ORDER BY time
),
dozer_nearby_prev_next AS (
SELECT
*,
LAG(dozer_nearby, 1) OVER (ORDER BY time) AS prev1,
LAG(dozer_nearby, 2) OVER (ORDER BY time) AS prev2,
LEAD(dozer_nearby, 1) OVER (ORDER BY time) AS next1,
LEAD(dozer_nearby, 2) OVER (ORDER BY time) AS next2
FROM calculated
),
dozer_nearby_gaps_filled AS (
SELECT
id,
time,
coord,
filtered_distance,
filtered_speed,
filtered_duration,
ign,
dumpster_open,
CASE
WHEN prev1 IS TRUE AND next1 IS TRUE THEN TRUE
WHEN prev1 IS TRUE AND next1 IS FALSE AND next2 IS TRUE THEN TRUE
WHEN prev2 IS TRUE AND prev1 IS FALSE AND next1 IS TRUE THEN TRUE
ELSE dozer_nearby
END AS dozer_nearby,
dozer_id
FROM dozer_nearby_prev_next
ORDER BY time
),
-- Categorize records by move type
typed AS (
SELECT
*,
(
SELECT sd.id
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE dozer_nearby_gaps_filled.time AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS') AT TIME ZONE t.time_zone
AND dozer_nearby_gaps_filled.time AT TIME ZONE t.time_zone <= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS') AT TIME ZONE t.time_zone
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_id,
(
SELECT sd.name
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE dozer_nearby_gaps_filled.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND dozer_nearby_gaps_filled.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_name,
CASE
WHEN ign IS FALSE THEN 'engine_off'
WHEN coord IS NULL THEN 'no_gps_data'
WHEN dozer_nearby IS TRUE THEN 'loading'
WHEN dumpster_open IS TRUE THEN 'dumpster_open'
WHEN filtered_speed <= 1.0 THEN 'motionless'
WHEN filtered_speed > 1.0 THEN 'travel'
ELSE 'unknown'
END AS type
FROM dozer_nearby_gaps_filled
ORDER BY time
),
active_zones AS (
SELECT *
FROM sms_zone
WHERE ((valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')) OR
(valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND valid_to IS NULL)) AND deleted_at IS NULL
),
-- Intersect move coordinates with fixed zones
intersected AS (
SELECT
t.id,
z.id AS zone_id
FROM typed AS t, sms_zone AS z
WHERE
(
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to IS NULL
)
) AND
z.deleted_at IS NULL AND
z.tenant_id = _tenant_id AND
z.site_id = _site_id AND
ST_IsEmpty(ST_Intersection(t.coord, ST_SetSRID(z.polygon, 4326))) = false
),
-- Partition zone-intersected moves
intersected_partitioned AS (
SELECT
intersected.*,
(ROW_NUMBER() OVER (ORDER BY id) - ROW_NUMBER() OVER (PARTITION BY id ORDER BY id)) AS numberer
FROM intersected
),
-- Rank partioned zone-intersected moves
intersected_ranked AS (
SELECT
intersected_partitioned.*,
ROW_NUMBER() OVER (PARTITION BY id, numberer ORDER by id) AS rank
FROM intersected_partitioned
ORDER BY id
),
-- Filter ranked zone-intersected moves
intersected_filtered AS (
SELECT *
FROM intersected_ranked
WHERE rank = 1
),
-- Intersect move coordinates with fixed zones
zoned AS (
SELECT
t.*,
i.zone_id
FROM typed AS t
LEFT JOIN intersected_filtered AS i ON t.id = i.id
),
-- Partition records by row numberer
partitioned AS (
SELECT
zoned.*,
(ROW_NUMBER() OVER (ORDER BY time) - ROW_NUMBER() OVER (PARTITION BY type ORDER BY time)) AS numberer
FROM zoned
),
-- Aggregate duration and distance and calculate centroid and linestring from aggregated positions
linestring_calculated AS (
SELECT
time,
type,
numberer,
ROW_NUMBER() OVER (PARTITION BY type, numberer ORDER by time) AS rank,
SUM(filtered_duration) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS duration,
SUM(filtered_distance) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS distance,
ST_MakeLine(coord) OVER (PARTITION BY type, numberer ORDER BY time) as linestring,
ST_Centroid(ST_UNION(coord) OVER (PARTITION BY type, numberer ORDER BY time)) AS centroid,
zone_id,
dozer_id,
shift_day_id,
shift_day_name
FROM partitioned
ORDER BY time
),
-- Filter last linestring or centroid if linestring is single point
linestring_filtered AS (
SELECT
numberer,
type,
CASE
WHEN ST_NumPoints(linestring) > 1 THEN linestring
ELSE ST_Centroid(linestring)
END AS geometry
FROM linestring_calculated
WHERE (numberer, rank, type) IN (SELECT numberer, MAX(rank) as rank, type FROM linestring_calculated GROUP BY type, numberer)
),
-- Add geometry from linestring_filtered to linestring_calculated
geometry_calculated AS (
SELECT
lc.*,
lf.geometry
FROM linestring_calculated AS lc
JOIN linestring_filtered AS lf ON lc.numberer = lf.numberer AND lc.type = lf.type
)
/** Insert new data **/
INSERT INTO sms_scraper_move(tenant_id, scraper_id, dozer_id, day_id, scraper_parameter_id, start_date, type, duration, distance, geometry, centroid, zone_id, shift_day_id, shift_day_name)
SELECT
_tenant_id AS tenant_id,
_scraper_id AS scraper_id,
dozer_id,
_day_id AS day_id,
_parameter_id AS scraper_parameter_id,
time AS start_date,
type,
duration,
distance,
geometry,
centroid,
zone_id,
shift_day_id,
shift_day_name
FROM geometry_calculated
WHERE rank = 1
ORDER BY start_date]]>
TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time
),
-- Format distance and duration and compute and format speed from computed distance and duration
calculated AS (
SELECT
gps.id,
gps.time,
gps.coord,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((filtered.distance)::numeric, 2)
END AS filtered_distance,
CASE
WHEN filtered.duration IS NULL THEN 0.00
ELSE ROUND((filtered.duration)::numeric, 2)
END AS filtered_duration,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((3.6 * (filtered.distance / filtered.duration))::numeric, 2)
END AS filtered_speed,
gps.ign,
filtered.dumpster_open,
filtered.dozer_nearby,
filtered.dozer_id
FROM sms_teltonika_scraper_gps_data AS gps
JOIN filtered ON filtered.id = gps.id
ORDER BY time
),
dozer_nearby_prev_next AS (
SELECT
*,
LAG(dozer_nearby, 1) OVER (ORDER BY time) AS prev1,
LAG(dozer_nearby, 2) OVER (ORDER BY time) AS prev2,
LEAD(dozer_nearby, 1) OVER (ORDER BY time) AS next1,
LEAD(dozer_nearby, 2) OVER (ORDER BY time) AS next2
FROM calculated
),
dozer_nearby_gaps_filled AS (
SELECT
id,
time,
coord,
filtered_distance,
filtered_speed,
filtered_duration,
ign,
dumpster_open,
CASE
WHEN prev1 IS TRUE AND next1 IS TRUE THEN TRUE
WHEN prev1 IS TRUE AND next1 IS FALSE AND next2 IS TRUE THEN TRUE
WHEN prev2 IS TRUE AND prev1 IS FALSE AND next1 IS TRUE THEN TRUE
ELSE dozer_nearby
END AS dozer_nearby,
dozer_id
FROM dozer_nearby_prev_next
ORDER BY time
),
-- Categorize records by move type
typed AS (
SELECT
*,
(
SELECT sd.id
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE dozer_nearby_gaps_filled.time AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS') AT TIME ZONE t.time_zone
AND dozer_nearby_gaps_filled.time AT TIME ZONE t.time_zone <= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS') AT TIME ZONE t.time_zone
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_id,
(
SELECT sd.name
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE dozer_nearby_gaps_filled.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND dozer_nearby_gaps_filled.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_name,
CASE
WHEN ign IS FALSE THEN 'engine_off'
WHEN coord IS NULL THEN 'no_gps_data'
WHEN dozer_nearby IS TRUE THEN 'loading'
WHEN dumpster_open IS TRUE THEN 'dumpster_open'
WHEN filtered_speed <= 1.0 THEN 'motionless'
WHEN filtered_speed > 1.0 THEN 'travel'
ELSE 'unknown'
END AS type
FROM dozer_nearby_gaps_filled
ORDER BY time
),
active_zones AS (
SELECT *
FROM sms_zone
WHERE ((valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')) OR
(valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND valid_to IS NULL)) AND deleted_at IS NULL
),
-- Intersect move coordinates with fixed zones
intersected AS (
SELECT
t.id,
z.id AS zone_id
FROM typed AS t, sms_zone AS z
WHERE
(
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to IS NULL
)
) AND
z.deleted_at IS NULL AND
z.tenant_id = _tenant_id AND
z.site_id = _site_id AND
ST_IsEmpty(ST_Intersection(t.coord, ST_SetSRID(z.polygon, 4326))) = false
),
-- Partition zone-intersected moves
intersected_partitioned AS (
SELECT
intersected.*,
(ROW_NUMBER() OVER (ORDER BY id) - ROW_NUMBER() OVER (PARTITION BY id ORDER BY id)) AS numberer
FROM intersected
),
-- Rank partioned zone-intersected moves
intersected_ranked AS (
SELECT
intersected_partitioned.*,
ROW_NUMBER() OVER (PARTITION BY id, numberer ORDER by id) AS rank
FROM intersected_partitioned
ORDER BY id
),
-- Filter ranked zone-intersected moves
intersected_filtered AS (
SELECT *
FROM intersected_ranked
WHERE rank = 1
),
-- Intersect move coordinates with fixed zones
zoned AS (
SELECT
t.*,
i.zone_id
FROM typed AS t
LEFT JOIN intersected_filtered AS i ON t.id = i.id
),
-- Partition records by row numberer
partitioned AS (
SELECT
zoned.*,
(ROW_NUMBER() OVER (ORDER BY time) - ROW_NUMBER() OVER (PARTITION BY type ORDER BY time)) AS numberer
FROM zoned
),
-- Aggregate duration and distance and calculate centroid and linestring from aggregated positions
linestring_calculated AS (
SELECT
time,
type,
numberer,
ROW_NUMBER() OVER (PARTITION BY type, numberer ORDER by time) AS rank,
SUM(filtered_duration) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS duration,
SUM(filtered_distance) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS distance,
ST_MakeLine(coord) OVER (PARTITION BY type, numberer ORDER BY time) as linestring,
ST_Centroid(ST_UNION(coord) OVER (PARTITION BY type, numberer ORDER BY time)) AS centroid,
zone_id,
dozer_id,
shift_day_id,
shift_day_name
FROM partitioned
ORDER BY time
),
-- Filter last linestring or centroid if linestring is single point
linestring_filtered AS (
SELECT
numberer,
type,
CASE
WHEN ST_NumPoints(linestring) > 1 THEN linestring
ELSE ST_Centroid(linestring)
END AS geometry
FROM linestring_calculated
WHERE (numberer, rank, type) IN (SELECT numberer, MAX(rank) as rank, type FROM linestring_calculated GROUP BY type, numberer)
),
-- Add geometry from linestring_filtered to linestring_calculated
geometry_calculated AS (
SELECT
lc.*,
lf.geometry
FROM linestring_calculated AS lc
JOIN linestring_filtered AS lf ON lc.numberer = lf.numberer AND lc.type = lf.type
)
/** Insert new data **/
INSERT INTO sms_scraper_move(tenant_id, scraper_id, dozer_id, day_id, scraper_parameter_id, start_date, type, duration, distance, geometry, centroid, zone_id, shift_day_id, shift_day_name)
SELECT
_tenant_id AS tenant_id,
_scraper_id AS scraper_id,
dozer_id,
_day_id AS day_id,
_parameter_id AS scraper_parameter_id,
time AS start_date,
type,
duration,
distance,
geometry,
centroid,
zone_id,
shift_day_id,
shift_day_name
FROM geometry_calculated
WHERE rank = 1
ORDER BY start_date]]>
_inclination_treshold THEN FALSE
ELSE TRUE
END
AS is_dumping
FROM sms_teltonika_gps_data
WHERE serial_number = _truck_serial::TEXT
AND time >= TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time
),
-- Format distance and duration and compute and format speed from computed distance and duration
calculated AS (
SELECT
gps.id,
gps.time,
gps.coord,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((filtered.distance)::numeric, 2)
END AS filtered_distance,
CASE
WHEN filtered.duration IS NULL THEN 0.00
ELSE ROUND((filtered.duration)::numeric, 2)
END AS filtered_duration,
CASE
WHEN filtered.distance IS NULL THEN 0.00
ELSE ROUND((3.6 * (filtered.distance / filtered.duration))::numeric, 2)
END AS filtered_speed,
gps.ign,
filtered.is_dumping
FROM sms_teltonika_gps_data AS gps
JOIN filtered ON filtered.id = gps.id
),
-- Categorize records by move type
typed AS (
SELECT
*,
(
SELECT sd.id
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_id,
(
SELECT sd.name
FROM sms_shift_day AS sd
LEFT JOIN sms_shift AS s ON s.id = sd.shift_id
LEFT JOIN tenants AS t on t.id = _tenant_id
WHERE calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone >= TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.start_hour, ':', sd.start_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND calculated.time::timestamp AT TIME ZONE (SELECT current_setting('TIMEZONE')) AT TIME ZONE t.time_zone < TO_TIMESTAMP(CONCAT(TO_DATE(_day_id::TEXT, 'YYYYMMDD'), ' ', sd.end_hour, ':', sd.end_minute, ':', 0), 'YYYY-MM-DD HH24:MI:SS')
AND SUBSTRING(REVERSE(sd.day_mask::BIT(7)::VARCHAR), EXTRACT(isodow from time)::INT, 1) = '1'
AND
(
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
s.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
s.valid_to IS NULL
)
)
AND s.tenant_id = _tenant_id
AND sd.tenant_id = _tenant_id
AND s.site_id = _site_id
LIMIT 1
) AS shift_day_name,
CASE
WHEN ign IS FALSE THEN 'engine_off'
WHEN coord IS NULL THEN 'no_gps_data'
WHEN is_dumping IS TRUE THEN 'dumping'
WHEN filtered_speed <= 1.0 THEN 'motionless'
WHEN filtered_speed <= 4.0 THEN 'low_speed'
WHEN filtered_speed > 4.0 THEN 'normal_speed'
ELSE 'unknown'
END AS type
FROM calculated
),
-- Intersect move coordinates with fixed zones
intersected AS (
SELECT
t.id,
z.id AS zone_id
FROM typed AS t, sms_zone AS z
WHERE
(
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
) OR
(
z.valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND
z.valid_to IS NULL
)
) AND z.deleted_at IS NULL AND
z.tenant_id = _tenant_id AND
z.site_id = _site_id AND
ST_IsEmpty(ST_Intersection(t.coord, ST_SetSRID(z.polygon, 4326))) = false
),
-- Partition zone-intersected moves
intersected_partitioned AS (
SELECT
intersected.*,
(ROW_NUMBER() OVER (ORDER BY id) - ROW_NUMBER() OVER (PARTITION BY id ORDER BY id)) AS numberer
FROM intersected
),
-- Rank partioned zone-intersected moves
intersected_ranked AS (
SELECT
intersected_partitioned.*,
ROW_NUMBER() OVER (PARTITION BY id, numberer ORDER by id) AS rank
FROM intersected_partitioned
ORDER BY id
),
-- Filter ranked zone-intersected moves
intersected_filtered AS (
SELECT *
FROM intersected_ranked
WHERE rank = 1
),
-- Intersect move coordinates with fixed zones
zoned AS (
SELECT
t.*,
i.zone_id
FROM typed AS t
LEFT JOIN intersected_filtered AS i ON t.id = i.id
),
-- Partition records by row numberer
partitioned AS (
SELECT
zoned.*,
(ROW_NUMBER() OVER (ORDER BY time) - ROW_NUMBER() OVER (PARTITION BY type ORDER BY time)) AS numberer
FROM zoned
),
-- Aggregate duration and distance and calculate centroid and linestring from aggregated positions
linestring_calculated AS (
SELECT
time,
type,
numberer,
ROW_NUMBER() OVER (PARTITION BY type, numberer ORDER by time) AS rank,
SUM(filtered_duration) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS duration,
SUM(filtered_distance) OVER (PARTITION BY type, numberer ORDER BY time DESC) AS distance,
ST_MakeLine(coord) OVER (PARTITION BY type, numberer ORDER BY time) as linestring,
ST_Centroid(ST_UNION(coord) OVER (PARTITION BY type, numberer ORDER BY time)) AS centroid,
zone_id,
shift_day_id,
shift_day_name
FROM partitioned
ORDER BY time
),
-- Filter last linestring or centroid if linestring is single point
linestring_filtered AS (
SELECT
numberer,
type,
CASE
WHEN ST_NumPoints(linestring) > 1 THEN linestring
ELSE ST_Centroid(linestring)
END AS geometry
FROM linestring_calculated
WHERE (numberer, rank, type) IN (SELECT numberer, MAX(rank) as rank, type FROM linestring_calculated GROUP BY type, numberer)
),
-- Add geometry from linestring_filtered to linestring_calculated
geometry_calculated AS (
SELECT
lc.*,
lf.geometry
FROM linestring_calculated AS lc
JOIN linestring_filtered AS lf ON lc.numberer = lf.numberer AND lc.type = lf.type
)
/** Insert new data **/
INSERT INTO sms_truck_move(tenant_id, truck_id, day_id, truck_parameter_id, start_date, type, duration, distance, geometry, centroid, zone_id, shift_day_id, shift_day_name)
-- Finalize selection
SELECT
_tenant_id AS tenant_id,
_truck_id AS truck_id,
_day_id AS day_id,
_parameter_id AS truck_parameter_id,
time AS start_date,
type,
duration,
distance,
geometry,
centroid,
zone_id,
shift_day_id,
shift_day_name
FROM geometry_calculated
WHERE rank = 1]]>
TO_DATE(_day_id::TEXT, 'YYYYMMDD')) OR
(valid_from <= TO_DATE(_day_id::TEXT, 'YYYYMMDD') AND valid_to IS NULL)) AND (deleted_at > TO_DATE(_day_id::TEXT, 'YYYYMMDD') OR deleted_at IS NULL)
),
zone_intersections AS (
SELECT
dz.id AS daily_zone_id,
z.id AS zone_id,
ST_Area(ST_Intersection(dz.polygon, ST_SetSRID(z.polygon, 4326))) AS surface
FROM daily_zones AS dz, active_zones AS z
WHERE ST_IsEmpty(ST_Intersection(dz.polygon, ST_SetSRID(z.polygon, 4326))) = false
AND dz.day_id = _day_id
AND z.tenant_id = _tenant_id
AND dz.tenant_id = _tenant_id
),
filtered_zone_intersections AS (
SELECT a.*
FROM zone_intersections AS a
INNER JOIN (
SELECT zone_id, MAX(surface) AS surface
FROM zone_intersections
GROUP BY zone_id
) AS b on a.zone_id = b.zone_id AND a.surface = b.surface
)
INSERT INTO sms_truck_daily_zone(tenant_id, day_id, name, polygon, center, zone_id)
SELECT
dz.tenant_id,
dz.day_id,
dz.name,
dz.polygon,
dz.center,
fzi.zone_id
FROM daily_zones AS dz
LEFT JOIN filtered_zone_intersections AS fzi ON dz.id = fzi.daily_zone_id;
UPDATE sms_truck_move
SET start_daily_zone_id = daily_intersections.daily_zone_id
FROM (SELECT
tm.id AS truck_move_id,
tdz.id AS daily_zone_id
FROM sms_truck_daily_zone AS tdz, sms_truck_move AS tm
WHERE ST_INTERSECTS(tdz.polygon, tm.centroid) = true
AND (tm.type = 'motionless' OR tm.type = 'loading' OR tm.type = 'dumping')
AND tm.day_id = _day_id AND tdz.day_id = _day_id
AND tm.tenant_id = _tenant_id AND tdz.tenant_id = _tenant_id
) AS daily_intersections
WHERE sms_truck_move.id = daily_intersections.truck_move_id;]]>
= _from_day_id AND day_id <= _to_day_id;
WITH
days AS (
SELECT to_char(ref_date, 'YYYYMMDD')::INT AS day_id
FROM generate_series(TO_DATE(_from_day_id::TEXT, 'YYYYMMDD'), TO_DATE(_to_day_id::TEXT, 'YYYYMMDD'), '1 day') AS ref_date
)
,machine_site AS (
SELECT sm.id
,sm.tenant_id
,sm."name" AS NAME
,sm.serial_number
,sm."type"
,smsa.site_id
,ss."name" AS site_name
,d.day_id
FROM sms_machine sm
LEFT JOIN sms_machine_site_association smsa ON sm.id = smsa.machine_id
AND sm.tenant_id = smsa.tenant_id
INNER JOIN days d ON d.day_id >= to_char(smsa.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(smsa.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
INNER JOIN sms_site ss ON smsa.site_id = ss.id
WHERE sm.deleted_at IS NULL
AND smsa.deleted_at IS NULL
AND ss.deleted_at IS NULL
AND sm.tenant_id = _tenant_id
)
,machine_cycles AS (
SELECT stc.day_id
,stc.tenant_id
,stc.truck_id AS machine_id
,count(stc.id) AS cycles
FROM sms_truck_cycle stc
INNER JOIN days d ON d.day_id::INT >= stc.day_id
AND d.day_id::INT <= stc.day_id
WHERE stc.unknown_load = false
AND stc.tenant_id = _tenant_id
GROUP BY stc.day_id
,stc.tenant_id
,stc.truck_id
UNION
SELECT ssc.day_id
,ssc.tenant_id
,ssc.scraper_id AS machine_id
,count(ssc.id) AS cycles
FROM sms_scraper_cycle ssc
INNER JOIN days d ON d.day_id::INT >= ssc.day_id
AND d.day_id::INT <= ssc.day_id
WHERE ssc.unknown_load = false
AND ssc.unknown_dump = false
AND ssc.tenant_id = _tenant_id
GROUP BY ssc.day_id
,ssc.tenant_id
,ssc.scraper_id
)
,machine_parameters AS (
SELECT sm.id AS machine_id
,sm.tenant_id
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.day_id
WHEN sm."type" = 2
THEN loader_parameters.day_id
WHEN sm."type" = 3
THEN dozer_parameters.day_id
WHEN sm."type" = 6
THEN scraper_parameters.day_id
ELSE other_parameters.day_id
END AS day_id
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.cost_per_hour
WHEN sm."type" = 2
THEN loader_parameters.cost_per_hour
WHEN sm."type" = 3
THEN dozer_parameters.cost_per_hour
WHEN sm."type" = 6
THEN scraper_parameters.cost_per_hour
ELSE other_parameters.cost_per_hour
END AS cost_per_hour
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.theoretical_consumption
WHEN sm."type" = 2
THEN loader_parameters.theoretical_consumption
WHEN sm."type" = 3
THEN dozer_parameters.theoretical_consumption
WHEN sm."type" = 6
THEN scraper_parameters.theoretical_consumption
ELSE other_parameters.theoretical_consumption
END AS theoretical_consumption
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.kg_co2_per_liter
WHEN sm."type" = 2
THEN loader_parameters.kg_co2_per_liter
WHEN sm."type" = 3
THEN dozer_parameters.kg_co2_per_liter
WHEN sm."type" = 6
THEN scraper_parameters.kg_co2_per_liter
ELSE other_parameters.kg_co2_per_liter
END AS kg_co2_per_liter
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.tonne
WHEN sm."type" = 6
THEN scraper_parameters.tonne
ELSE NULL
END AS tonne
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.volume
WHEN sm."type" = 6
THEN scraper_parameters.volume
ELSE NULL
END AS volume
FROM sms_machine sm
LEFT JOIN (
SELECT stp.*
,d.day_id
FROM sms_truck_parameters stp
INNER JOIN days d ON d.day_id >= to_char(stp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(stp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE stp.deleted_at IS NULL
) truck_parameters ON truck_parameters.machine_id = sm.id
AND truck_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT slp.*
,d.day_id
FROM sms_loader_parameters slp
INNER JOIN days d ON d.day_id >= to_char(slp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(slp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE slp.deleted_at IS NULL
) loader_parameters ON loader_parameters.machine_id = sm.id
AND loader_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT ssp.*
,d.day_id
FROM sms_scraper_parameters ssp
INNER JOIN days d ON d.day_id >= to_char(ssp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(ssp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE ssp.deleted_at IS NULL
) scraper_parameters ON scraper_parameters.machine_id = sm.id
AND scraper_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT sop.*
,d.day_id
FROM sms_other_parameters sop
INNER JOIN days d ON d.day_id >= to_char(sop.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(sop.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE sop.deleted_at IS NULL
) other_parameters ON other_parameters.machine_id = sm.id
AND other_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT sdp.*
,d.day_id
FROM sms_dozer_parameters sdp
INNER JOIN days d ON d.day_id >= to_char(sdp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(sdp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE sdp.deleted_at IS NULL
) dozer_parameters ON dozer_parameters.machine_id = sm.id
AND dozer_parameters.tenant_id = sm.tenant_id
WHERE sm.deleted_at IS NULL AND sm.tenant_id = _tenant_id
)
,machine_gps_data AS (
SELECT stgd.id AS id
,stgd.TIME
,to_char(stgd.TIME, 'YYYYMMDD')::INT AS day_id
,stgd.serial_number AS tracker
,stgd.tenant_id AS tenant_id
,smtt.machine_id AS machine_id
,stci.delta_time
,stci.delta_distance
FROM sms_teltonika_gps_data stgd
LEFT JOIN sms_tgd_computed_info stci ON stgd.id = stci.id
LEFT JOIN sms_machine_teltonika_tracker smtt ON stgd."time" >= smtt.valid_from
AND stgd."time" < coalesce(smtt.valid_to, now())
AND stgd.serial_number = smtt.tracker_serial
AND stgd.tenant_id = smtt.tenant_id
INNER JOIN sms_machine sm ON smtt.machine_id = sm.id
WHERE stgd.TIME >= TO_TIMESTAMP(CONCAT(TO_DATE(_from_day_id::TEXT, 'YYYYMMDD'), ' 00:00:00'), 'YYYY-MM-DD HH24:MI:SS')
AND stgd.TIME <= TO_TIMESTAMP(CONCAT(TO_DATE(_to_day_id::TEXT, 'YYYYMMDD'), ' 23:59:59'), 'YYYY-MM-DD HH24:MI:SS')
AND smtt.deleted_at IS NULL
AND sm.deleted_at IS NULL
AND stgd.tenant_id = _tenant_id
AND stgd.ign = true
)
,computed_machine_gps_data AS (
SELECT count(mgd.id) AS gpscount
,mgd.tracker
,mgd.tenant_id
,mgd.day_id
,mgd.machine_id
,sum(mgd.delta_time) AS computed_duration
,sum(mgd.delta_distance) AS computed_distance
FROM machine_gps_data mgd
WHERE mgd.day_id IS NOT NULL
GROUP BY mgd.tracker
,mgd.tenant_id
,mgd.day_id
,mgd.machine_id
)
,machine_site_gps AS (
SELECT coalesce(ms.id, cmgd.machine_id) AS id
,coalesce(ms.day_id, cmgd.day_id) AS day_id
,coalesce(ms.tenant_id, cmgd.tenant_id) AS tenant_id
,ms.site_id AS site_id
,ms.site_name as site_name
,CASE
WHEN cmgd.gpscount > 0
THEN 1
ELSE 0
END AS active
,cmgd.machine_id
,ms.serial_number
,ms."name"
,ms."type"
,cmgd.computed_duration
,cmgd.computed_distance
FROM machine_site ms
FULL JOIN computed_machine_gps_data cmgd ON ms.id = cmgd.machine_id
AND ms.day_id = cmgd.day_id
AND ms.tenant_id = cmgd.tenant_id
--WHERE ms.day_id IS NOT NULL
)
,machine_statistic AS (
SELECT msg.active AS machine_active
,msg.day_id
,msg.tenant_id
,msg.site_id
,msg.site_name as site_name
,msg.id AS machine_id
,msg."type" AS machine_type
,msg."name" AS machine_name
,sum(msg.computed_duration) AS computed_duration
,sum(msg.computed_distance) AS computed_distance
,mp.cost_per_hour
,mp.theoretical_consumption
,mp.kg_co2_per_liter
,mp.volume
,mc.cycles
FROM machine_site_gps msg
LEFT JOIN machine_parameters mp ON msg.day_id = mp.day_id
AND msg.id = mp.machine_id
LEFT JOIN machine_cycles mc ON msg.day_id = mc.day_id
AND msg.id = mc.machine_id
WHERE msg.day_id IS NOT NULL
GROUP BY msg.id
,msg.tenant_id
,msg.site_id
,msg.site_name
,msg.active
,msg."name"
,msg."type"
,msg.day_id
,mp.cost_per_hour
,mp.theoretical_consumption
,mp.kg_co2_per_liter
,mp.volume
,mc.cycles
ORDER BY msg.day_id
)
INSERT INTO sms_kpi_sites (day_id, tenant_id, site_id, site_name, machines_count, machines_count_active, machines_volume, machines_fuel_used, machines_co2_equivalent, machines_hours_operating, machines_cost)
SELECT ms.day_id
,ms.tenant_id
,ms.site_id
,ms.site_name
,count(ms.machine_id) AS machines_count
,sum(ms.machine_active) AS machines_count_active
,sum(ms.volume * ms.cycles) AS machines_volume
,sum(ms.computed_duration / 3600 * ms.theoretical_consumption) AS machines_fuel_used
,sum(ms.computed_duration / 3600 * ms.theoretical_consumption * ms.kg_co2_per_liter) AS machines_co2_equivalent
,sum(ms.computed_duration / 3600) AS machines_hours_operating
,sum(ms.computed_duration / 3600 * ms.cost_per_hour) AS machines_cost
FROM machine_statistic ms
GROUP BY ms.day_id
,ms.tenant_id
,ms.site_id
,ms.site_name
ORDER BY ms.day_id;]]>
= _from_day_id AND day_id <= _to_day_id;
WITH
all_cycles AS (
SELECT DISTINCT stc.day_id
,stc.tenant_id
,smsa.site_id AS site_id
,ss.NAME AS site_name
,stc.shift_day_id AS shift_id
,stc.shift_day_name AS shift_name
,stc.cycle_day_id
,stc.start_date AS cycle_date_start
,stc.local_hour AS cycle_hour_start
,stc.total_cycle_time AS cycle_time
,stc.truck_id AS dumper_id
,smd."type" AS dumper_type_id
,smtd."name" AS dumper_type
,smd."name" AS dumper_name
,stc.loader_id AS loader_id
,sml."type" AS loader_type_id
,smtl."name" AS loader_type
,sml."name" AS loader_name
,stc.dump_zone_id AS zone_dumping_id
,szd.NAME AS zone_dumping_name
,stc.load_zone_id AS zone_loading_id
,szl.NAME AS zone_loading_name
,stc.distance_loaded + stc.distance_empty AS dumper_distance
,stc.distance_loaded AS dumper_distance_loaded
,stc.distance_empty AS dumper_distance_empty
,(stc.travel_time_empty + stc.travel_time_loaded + stc.waiting_on_track_empty + stc.waiting_on_track_loaded + stc.loading_time + stc.dumping_time + stc.waiting_for_loading_time + stc.waiting_for_dumping_time) AS dumper_time_operating
,stc.travel_time_empty AS dumper_time_travelling_empty
,stc.travel_time_loaded AS dumper_time_travelling_loaded
,stc.waiting_on_track_empty AS dumper_time_waiting_empty
,stc.waiting_on_track_loaded AS dumper_time_waiting_loaded
,stc.stopped_engine_off_time AS dumper_time_engine_off
,stc.loading_time AS dumper_time_loading
,stc.dumping_time AS dumper_time_dumping
,stc.waiting_for_loading_time AS dumper_time_waiting_loading
,stc.waiting_for_dumping_time AS dumper_time_waiting_dumping
,stp.volume AS dumper_volume_theoretical
,stc.unknown_load AS dumper_operation_loader_unknown
FROM sms_truck_cycle stc
LEFT JOIN sms_machine smd ON stc.truck_id = smd.id
AND stc.tenant_id = smd.tenant_id
LEFT JOIN sms_machine_type smtd ON smd."type" = smtd.id
AND smd.tenant_id = smtd.tenant_id
LEFT JOIN sms_machine sml ON stc.loader_id = sml.id
AND stc.tenant_id = sml.tenant_id
LEFT JOIN sms_machine_type smtl ON sml."type" = smtl.id
AND sml.tenant_id = smtl.tenant_id
LEFT JOIN sms_zone szd ON stc.dump_zone_id = szd.id
AND stc.tenant_id = szd.tenant_id
LEFT JOIN sms_zone szl ON stc.load_zone_id = szl.id
AND stc.tenant_id = szl.tenant_id
LEFT JOIN sms_truck_parameters stp ON stc.truck_parameter_id = stp.id
AND stc.tenant_id = stp.tenant_id
LEFT JOIN sms_machine_site_association smsa ON stc.truck_id = smsa.machine_id
AND stc.tenant_id = smsa.tenant_id
AND stc.day_id >= to_char(smsa.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND stc.day_id <= to_char(coalesce(smsa.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
AND smsa.deleted_at IS NULL
LEFT JOIN sms_site ss ON smsa.site_id = ss.id
AND smsa.tenant_id = ss.tenant_id
AND ss.deleted_at IS NULL
WHERE stc.day_id >= _from_day_id AND stc.day_id <= _to_day_id
UNION
SELECT DISTINCT ssc.day_id
,ssc.tenant_id
,smsa.site_id AS site_id
,ss.NAME AS site_name
,ssc.shift_day_id AS shift_id
,ssc.shift_day_name AS shift_name
,ssc.cycle_day_id
,ssc.start_date AS cycle_date_start
,ssc.local_hour AS cycle_hour_start
,ssc.total_cycle_time AS cycle_time
,ssc.scraper_id AS dumper_id
,smd."type" AS dumper_type_id
,smtd."name" AS dumper_type
,smd."name" AS dumper_name
,ssc.dozer_id AS loader_id
,sml."type" AS loader_type_id
,smtl."name" AS loader_type
,sml."name" AS loader_name
,ssc.dump_zone_id AS zone_dumping_id
,szd.NAME AS zone_dumping_name
,ssc.load_zone_id AS zone_loading_id
,szl.NAME AS zone_loading_name
,ssc.distance_loaded + ssc.distance_empty AS dumper_distance
,ssc.distance_loaded AS dumper_distance_loaded
,ssc.distance_empty AS dumper_distance_empty
,(ssc.travel_time_empty + ssc.travel_time_loaded + ssc.waiting_on_track_empty + ssc.waiting_on_track_loaded + ssc.loading_time + ssc.dumping_time + ssc.waiting_for_loading_time + ssc.waiting_for_dumping_time) AS dumper_time_operating
,ssc.travel_time_empty AS dumper_time_travelling_empty
,ssc.travel_time_loaded AS dumper_time_travelling_loaded
,ssc.waiting_on_track_empty AS dumper_time_waiting_empty
,ssc.waiting_on_track_loaded AS dumper_time_waiting_loaded
,ssc.stopped_engine_off_time AS dumper_time_engine_off
,ssc.loading_time AS dumper_time_loading
,ssc.dumping_time AS dumper_time_dumping
,ssc.waiting_for_loading_time AS dumper_time_waiting_loading
,ssc.waiting_for_dumping_time AS dumper_time_waiting_dumping
,ssp.volume AS dumper_volume_theoretical
,ssc.unknown_load AS dumper_operation_loader_unknown
FROM sms_scraper_cycle ssc
LEFT JOIN sms_machine smd ON ssc.scraper_id = smd.id
AND ssc.tenant_id = smd.tenant_id
LEFT JOIN sms_machine_type smtd ON smd."type" = smtd.id
AND smd.tenant_id = smtd.tenant_id
LEFT JOIN sms_machine sml ON ssc.dozer_id = sml.id
AND ssc.tenant_id = sml.tenant_id
LEFT JOIN sms_machine_type smtl ON sml."type" = smtl.id
AND sml.tenant_id = smtl.tenant_id
LEFT JOIN sms_zone szd ON ssc.dump_zone_id = szd.id
AND ssc.tenant_id = szd.tenant_id
LEFT JOIN sms_zone szl ON ssc.load_zone_id = szl.id
AND ssc.tenant_id = szl.tenant_id
LEFT JOIN sms_scraper_parameters ssp ON ssc.scraper_parameter_id = ssp.id
AND ssc.tenant_id = ssp.tenant_id
LEFT JOIN sms_machine_site_association smsa ON ssc.scraper_id = smsa.machine_id
AND ssc.tenant_id = smsa.tenant_id
AND ssc.day_id >= to_char(smsa.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND ssc.day_id <= to_char(coalesce(smsa.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
AND smsa.deleted_at IS NULL
LEFT JOIN sms_site ss ON smsa.site_id = ss.id
AND smsa.tenant_id = ss.tenant_id
AND ss.deleted_at IS NULL
WHERE ssc.day_id >= _from_day_id AND ssc.day_id <= _to_day_id
)
INSERT INTO sms_kpi_machines_cycles (day_id, tenant_id, site_id, site_name, shift_id, shift_name,
cycle_day_id, cycle_date_start, cycle_hour_start, cycle_time, dumper_id, dumper_type_id,
dumper_type, dumper_name, loader_id, loader_type_id, loader_type, loader_name, zone_loading_id,
zone_loading_name, zone_dumping_id, zone_dumping_name, dumper_distance, dumper_distance_empty,
dumper_distance_loaded, dumper_time_operating, dumper_time_travelling_empty,
dumper_time_travelling_loaded, dumper_time_waiting_empty, dumper_time_waiting_loaded,
dumper_time_engine_off, dumper_time_loading, dumper_time_dumping, dumper_time_waiting_loading,
dumper_time_waiting_dumping, dumper_volume_theoretical, dumper_operation_loader_unknown)
SELECT day_id, tenant_id, site_id, site_name, shift_id, shift_name, cycle_day_id, cycle_date_start,
cycle_hour_start, cycle_time, dumper_id, dumper_type_id, dumper_type, dumper_name, loader_id,
loader_type_id, loader_type, loader_name, zone_loading_id, zone_loading_name, zone_dumping_id,
zone_dumping_name, dumper_distance, dumper_distance_empty, dumper_distance_loaded,
dumper_time_operating, dumper_time_travelling_empty, dumper_time_travelling_loaded,
dumper_time_waiting_empty, dumper_time_waiting_loaded, dumper_time_engine_off, dumper_time_loading,
dumper_time_dumping, dumper_time_waiting_loading, dumper_time_waiting_dumping,
dumper_volume_theoretical, dumper_operation_loader_unknown
FROM all_cycles
ORDER BY day_id;]]>
= _from_day_id AND day_id <= _to_day_id;
WITH days AS (
SELECT to_char(ref_date, 'YYYYMMDD')::INT AS day_id
FROM generate_series(TO_DATE(_from_day_id::TEXT, 'YYYYMMDD'), TO_DATE(_to_day_id::TEXT, 'YYYYMMDD'), '1 day') AS ref_date
)
,machine_site AS (
SELECT sm.id
,sm.tenant_id
,smsa.site_id
,ss."name" AS site_name
,d.day_id
FROM sms_machine sm
LEFT JOIN sms_machine_site_association smsa ON sm.id = smsa.machine_id
AND sm.tenant_id = smsa.tenant_id
INNER JOIN days d ON d.day_id >= to_char(smsa.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(smsa.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
INNER JOIN sms_site ss ON smsa.site_id = ss.id
WHERE sm.deleted_at IS NULL
AND smsa.deleted_at IS NULL
AND ss.deleted_at IS NULL
AND sm.tenant_id = _tenant_id
)
,machine_parameters AS (
SELECT sm.id AS machine_id
,sm.tenant_id
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.day_id
WHEN sm."type" = 2
THEN loader_parameters.day_id
WHEN sm."type" = 3
THEN dozer_parameters.day_id
WHEN sm."type" = 6
THEN scraper_parameters.day_id
ELSE other_parameters.day_id
END AS day_id
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.cost_per_hour
WHEN sm."type" = 2
THEN loader_parameters.cost_per_hour
WHEN sm."type" = 3
THEN dozer_parameters.cost_per_hour
WHEN sm."type" = 6
THEN scraper_parameters.cost_per_hour
ELSE other_parameters.cost_per_hour
END AS cost_per_hour
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.theoretical_consumption
WHEN sm."type" = 2
THEN loader_parameters.theoretical_consumption
WHEN sm."type" = 3
THEN dozer_parameters.theoretical_consumption
WHEN sm."type" = 6
THEN scraper_parameters.theoretical_consumption
ELSE other_parameters.theoretical_consumption
END AS theoretical_consumption
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.kg_co2_per_liter
WHEN sm."type" = 2
THEN loader_parameters.kg_co2_per_liter
WHEN sm."type" = 3
THEN dozer_parameters.kg_co2_per_liter
WHEN sm."type" = 6
THEN scraper_parameters.kg_co2_per_liter
ELSE other_parameters.kg_co2_per_liter
END AS kg_co2_per_liter
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.tonne
WHEN sm."type" = 6
THEN scraper_parameters.tonne
ELSE NULL
END AS tonne
,CASE
WHEN sm."type" = 1
OR sm."type" = 7
THEN truck_parameters.volume
WHEN sm."type" = 6
THEN scraper_parameters.volume
ELSE NULL
END AS volume
FROM sms_machine sm
LEFT JOIN (
SELECT stp.*
,d.day_id
FROM sms_truck_parameters stp
INNER JOIN days d ON d.day_id >= to_char(stp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(stp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE stp.deleted_at IS NULL
) truck_parameters ON truck_parameters.machine_id = sm.id
AND truck_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT slp.*
,d.day_id
FROM sms_loader_parameters slp
INNER JOIN days d ON d.day_id >= to_char(slp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(slp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE slp.deleted_at IS NULL
) loader_parameters ON loader_parameters.machine_id = sm.id
AND loader_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT ssp.*
,d.day_id
FROM sms_scraper_parameters ssp
INNER JOIN days d ON d.day_id >= to_char(ssp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(ssp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE ssp.deleted_at IS NULL
) scraper_parameters ON scraper_parameters.machine_id = sm.id
AND scraper_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT sop.*
,d.day_id
FROM sms_other_parameters sop
INNER JOIN days d ON d.day_id >= to_char(sop.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(sop.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE sop.deleted_at IS NULL
) other_parameters ON other_parameters.machine_id = sm.id
AND other_parameters.tenant_id = sm.tenant_id
LEFT JOIN (
SELECT sdp.*
,d.day_id
FROM sms_dozer_parameters sdp
INNER JOIN days d ON d.day_id >= to_char(sdp.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(sdp.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
WHERE sdp.deleted_at IS NULL
) dozer_parameters ON dozer_parameters.machine_id = sm.id
AND dozer_parameters.tenant_id = sm.tenant_id
WHERE sm.deleted_at IS NULL
AND sm.tenant_id = _tenant_id
)
,machine_tracker AS (
SELECT sm.id AS machine_id
,sm."name" AS NAME
,sm.serial_number
,sm."type"
,sm.model
,sm.make
,sm.tenant_id
,she.id AS hiboo_id
,she.serial_number AS hiboo_serial_number
,she."name" AS hiboo_name
,smtt.tracker_serial
,d.day_id
FROM sms_machine sm
LEFT JOIN sms_machine_teltonika_tracker smtt ON sm.id = smtt.machine_id
AND sm.tenant_id = smtt.tenant_id
INNER JOIN days d ON d.day_id >= to_char(smtt.valid_from::TIMESTAMP, 'YYYYMMDD')::INT
AND d.day_id <= to_char(coalesce(smtt.valid_to, now())::TIMESTAMP, 'YYYYMMDD')::INT
LEFT JOIN sms_hiboo_equipment she ON sm.serial_number = she.serial_number
AND sm.tenant_id = she.tenant_id
WHERE sm.deleted_at IS NULL
AND smtt.deleted_at IS NULL
AND sm.tenant_id = _tenant_id
)
,tracker_gps_data AS (
SELECT stgd.id AS id
,stgd.TIME
,stgd.ign
,to_char(stgd.TIME, 'YYYYMMDD')::INT AS day_id
,stgd.serial_number AS tracker
,stgd.tenant_id AS tenant_id
,stci.delta_time
,stci.delta_distance
FROM sms_teltonika_gps_data stgd
LEFT JOIN sms_tgd_computed_info stci ON stgd.id = stci.id
WHERE stgd.TIME >= TO_TIMESTAMP(CONCAT (TO_DATE(_from_day_id::TEXT, 'YYYYMMDD'),' 00:00:00'), 'YYYY-MM-DD HH24:MI:SS')
AND stgd.TIME <= TO_TIMESTAMP(CONCAT (TO_DATE(_to_day_id::TEXT, 'YYYYMMDD'),' 23:59:59'), 'YYYY-MM-DD HH24:MI:SS')
AND stgd.tenant_id = _tenant_id
)
,computed_tracker_gps_data AS (
SELECT count(tgd.id) AS gpscount
,tgd.tracker
,tgd.tenant_id
,tgd.day_id
,sum(CASE
WHEN tgd.ign = true
THEN tgd.delta_time
ELSE NULL
END) AS computed_duration
,sum(CASE
WHEN tgd.ign = true
THEN tgd.delta_distance
ELSE NULL
END) AS computed_distance
FROM tracker_gps_data tgd
WHERE tgd.day_id IS NOT NULL
GROUP BY tgd.tracker
,tgd.tenant_id
,tgd.day_id
)
,machine_tracker_gps_data AS (
SELECT mt.machine_id
,mt."name" AS NAME
,mt.serial_number
,mt."type"
,mt.model
,mt.make
,mt.hiboo_id
,mt.hiboo_serial_number
,mt.hiboo_name
,coalesce(mt.tracker_serial, ctgd.tracker) AS tracker
,coalesce(mt.tenant_id, ctgd.tenant_id) AS tenant_id
,coalesce(mt.day_id, ctgd.day_id) AS day_id
,ctgd.gpscount
,ctgd.computed_duration
,ctgd.computed_distance
FROM machine_tracker mt
LEFT JOIN computed_tracker_gps_data ctgd ON mt.tracker_serial = ctgd.tracker
AND mt.day_id = ctgd.day_id
AND mt.tenant_id = ctgd.tenant_id
)
,machine_tracker_site_gps AS (
SELECT coalesce(ms.id, mtgd.machine_id) AS machine_id
,coalesce(ms.day_id, mtgd.day_id) AS day_id
,coalesce(ms.tenant_id, mtgd.tenant_id) AS tenant_id
,ms.site_id AS site_id
,ms.site_name AS site_name
,mtgd.gpscount
,mtgd.serial_number
,mtgd."name"
,mtgd."type"
,mtgd.model
,mtgd.make
,mtgd.tracker
,mtgd.computed_duration
,mtgd.computed_distance
,mtgd.hiboo_id
,mtgd.hiboo_serial_number
,mtgd.hiboo_name
FROM machine_tracker_gps_data mtgd
FULL JOIN machine_site ms ON ms.id = mtgd.machine_id
AND ms.day_id = mtgd.day_id
AND ms.tenant_id = mtgd.tenant_id
)
,machine_statistic AS (
SELECT mtsg.gpscount
,mtsg.day_id
,mtsg.tenant_id
,mtsg.site_id
,mtsg.site_name AS site_name
,mtsg.machine_id AS machine_id
,mtsg."type" AS machine_type
,mtsg."name" AS machine_name
,mtsg.model AS machine_model
,mtsg.make AS machine_make
,mtsg.serial_number
,mtsg.hiboo_id
,mtsg.hiboo_serial_number
,mtsg.hiboo_name
,mtsg.tracker
,sum(mtsg.computed_duration) AS computed_duration
,sum(mtsg.computed_distance) AS computed_distance
,mp.cost_per_hour
,mp.theoretical_consumption
,mp.kg_co2_per_liter
,mp.volume
FROM machine_tracker_site_gps mtsg
LEFT JOIN machine_parameters mp ON mtsg.day_id = mp.day_id
AND mtsg.machine_id = mp.machine_id
WHERE mtsg.day_id IS NOT NULL
GROUP BY mtsg.machine_id
,mtsg.tenant_id
,mtsg.site_id
,mtsg.site_name
,mtsg.gpscount
,mtsg."name"
,mtsg."type"
,mtsg.model
,mtsg.make
,mtsg.serial_number
,mtsg.hiboo_id
,mtsg.hiboo_serial_number
,mtsg.hiboo_name
,mtsg.tracker
,mtsg.day_id
,mp.cost_per_hour
,mp.theoretical_consumption
,mp.kg_co2_per_liter
,mp.volume
ORDER BY mtsg.day_id
)
,hiboo AS (
SELECT *
FROM sms_hiboo_daily_data shdd
WHERE shdd.calendar_day_id >= _from_day_id
AND shdd.calendar_day_id <= _to_day_id
AND shdd.tenant_id = _tenant_id
)
,machine_waitings AS (
SELECT stc.truck_id AS machine_id
,stc.tenant_id
,stc.day_id
,SUM(stc.waiting_on_track_empty + stc.waiting_on_track_loaded + stc.waiting_for_loading_time + stc.waiting_for_dumping_time) AS hours_idling
FROM sms_truck_cycle stc
GROUP BY stc.truck_id
,stc.tenant_id
,stc.day_id
UNION
SELECT ssc.scraper_id AS machine_id
,ssc.tenant_id
,ssc.day_id
,SUM(ssc.waiting_on_track_empty + ssc.waiting_on_track_loaded + ssc.waiting_for_loading_time + ssc.waiting_for_dumping_time) AS hours_idling
FROM sms_scraper_cycle ssc
GROUP BY ssc.scraper_id
,ssc.tenant_id
,ssc.day_id
)
INSERT INTO PUBLIC.sms_kpi_sites_machines (
day_id
,tenant_id
,site_id
,site_name
,machine_id
,machine_type_id
,machine_type
,machine_name
,machine_make
,machine_model
,machine_sn
,tracker_gps_count_teltonika
,tracker_sn_hiboo
,tracker_name_hiboo
,tracker_sn_teltonika
,tracker_id_teltonika
,machine_hours_operating
,machine_hours_idle
,machine_hours_working
,machine_fuel_used
,machine_distance
,machine_fuel_consumption
,machine_hours_idling_percentage
,machine_co2_equivalent
,hiboo_hours_operating
,hiboo_hours_idle
,hiboo_hours_working
,hiboo_fuel_used
,hiboo_distance
,hiboo_fuel_consumption
,hiboo_hours_idling_percentage
,hiboo_co2_equivalent
)
SELECT ms.day_id
,ms.tenant_id
,ms.site_id
,ms.site_name
,ms.machine_id
,ms.machine_type AS machine_type_id
,smt.NAME AS machine_type
,ms.machine_name
,ms.machine_make
,ms.machine_model
,ms.serial_number AS machine_sn
,ms.gpscount AS tracker_gps_count_teltonika
,ms.hiboo_serial_number AS tracker_sn_hiboo
,ms.hiboo_name AS tracker_name_hiboo
,ms.tracker AS tracker_sn_teltonika
,NULL AS tracker_id_teltonika
,ms.computed_duration / 3600::NUMERIC AS machines_hours_operating
,mw.hours_idling / 3600::NUMERIC AS machines_hours_idle
,(ms.computed_duration - mw.hours_idling) / 3600::NUMERIC AS machines_hours_working
,(ms.computed_duration / 3600 * ms.theoretical_consumption) AS machine_fuel_used
,ms.computed_distance AS machine_distance
,CASE
WHEN ms.computed_duration IS NOT NULL
AND coalesce(ms.computed_duration, 0) > 0
THEN (ms.computed_duration / 3600 * ms.theoretical_consumption) / (ms.computed_duration / 3600)
ELSE NULL
END AS machine_fuel_consumption
,CASE
WHEN mw.hours_idling IS NOT NULL
AND coalesce(ms.computed_duration, 0) > 0
THEN mw.hours_idling / ms.computed_duration * 100
ELSE NULL
END AS machine_hours_idling_percentage
,(ms.computed_duration / 3600 * ms.theoretical_consumption * ms.kg_co2_per_liter) AS machine_co2_equivalent
,h.operating_hours AS hiboo_hours_operating
,h.idle_hours AS hiboo_hours_idle
,h.working_hours AS hiboo_hours_working
,h.fuel_used AS hiboo_fuel_used
,h.distance * 1000 AS hiboo_distance
,CASE
WHEN h.fuel_used IS NOT NULL
AND coalesce(h.operating_hours, 0) > 0
THEN h.fuel_used / h.operating_hours
ELSE NULL
END AS hiboo_fuel_consumption
,CASE
WHEN h.idle_hours IS NOT NULL
AND coalesce(h.operating_hours, 0) > 0
THEN h.idle_hours / h.operating_hours * 100
ELSE NULL
END AS hiboo_hours_idling_percentage
,h.fuel_used * ms.kg_co2_per_liter AS hiboo_co2_equivalent
FROM machine_statistic ms
INNER JOIN sms_machine_type smt ON ms.machine_type = smt.id
AND ms.tenant_id = smt.tenant_id
LEFT JOIN hiboo h ON ms.hiboo_id = h.equipment_id
AND ms.day_id = h.calendar_day_id
AND ms.tenant_id = h.tenant_id
LEFT JOIN machine_waitings mw ON ms.machine_id = mw.machine_id
AND ms.tenant_id = mw.tenant_id
AND ms.day_id = mw.day_id
ORDER BY ms.day_id;]]>
TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC
),
scraper_azimuth_calculated AS (
SELECT
scraper_gps_id,
time,
scraper_coord,
next_scraper_coord,
dumpster_open,
CASE
WHEN ST_Equals(scraper_coord, next_scraper_coord) THEN 0
ELSE DEGREES(ST_AZIMUTH(scraper_coord, next_scraper_coord))
END AS scraper_azimuth
FROM scraper_raw_gps
),
dozer_raw_gps AS (
SELECT
id AS dozer_gps_id,
time,
coord AS dozer_coord,
LEAD(coord, 1) OVER (ORDER BY time) AS next_dozer_coord
FROM sms_teltonika_gps_data
WHERE serial_number = _dozer_serial
AND time > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC
),
dozer_azimuth_calculated AS (
SELECT
dozer_gps_id,
time,
dozer_coord,
next_dozer_coord,
CASE
WHEN ST_Equals(dozer_coord, next_dozer_coord) THEN 0
ELSE DEGREES(ST_AZIMUTH(dozer_coord, next_dozer_coord))
END AS dozer_azimuth
FROM dozer_raw_gps
),
paired AS (
SELECT
*,
(
SELECT dozer_gps_id
FROM dozer_azimuth_calculated
WHERE time >= (scraper_azimuth_calculated.time - INTERVAL '5 second') AND time <= (scraper_azimuth_calculated.time + INTERVAL '5 second')
LIMIT 1
),
(
SELECT dozer_coord
FROM dozer_azimuth_calculated
WHERE time >= (scraper_azimuth_calculated.time - INTERVAL '5 second') AND time <= (scraper_azimuth_calculated.time + INTERVAL '5 second')
LIMIT 1
),
(
SELECT dozer_azimuth
FROM dozer_azimuth_calculated
WHERE time >= (scraper_azimuth_calculated.time - INTERVAL '5 second') AND time <= (scraper_azimuth_calculated.time + INTERVAL '5 second')
LIMIT 1
)
FROM scraper_azimuth_calculated
),
calculated AS (
SELECT
*,
CASE
WHEN scraper_coord IS NULL THEN NULL
WHEN dozer_coord IS NULL THEN NULL
ELSE ST_DistanceSphere(scraper_coord, dozer_coord)
END AS machine_distance,
CASE
WHEN scraper_azimuth IS NULL THEN NULL
WHEN dozer_azimuth IS NULL THEN NULL
WHEN scraper_azimuth = 0 AND dozer_azimuth = 0 THEN NULL
ELSE ABS(scraper_azimuth - dozer_azimuth)
END AS azimuth_delta
FROM paired
),
loading_detected AS (
SELECT
scraper_gps_id,
CASE
WHEN dumpster_open IS TRUE AND machine_distance <= _distance_treshold AND azimuth_delta <= _azimuth_treshold THEN TRUE
ELSE FALSE
END AS dozer_nearby
FROM calculated
)
UPDATE sms_teltonika_scraper_gps_data
SET dozer_nearby = loading_detected.dozer_nearby, dozer_id = _dozer_id
FROM loading_detected
WHERE sms_teltonika_scraper_gps_data.id = loading_detected.scraper_gps_id
AND loading_detected.dozer_nearby IS TRUE;]]>
TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC
),
scraper_azimuth_calculated AS (
SELECT
scraper_gps_id,
time,
scraper_coord,
next_scraper_coord,
dumpster_open,
CASE
WHEN ST_Equals(scraper_coord, next_scraper_coord) THEN 0
ELSE DEGREES(ST_AZIMUTH(scraper_coord, next_scraper_coord))
END AS scraper_azimuth
FROM scraper_raw_gps
),
scraper_azimuth_prev AS (
SELECT
*,
LAG(scraper_azimuth, 1) OVER (ORDER BY time) AS scraper_azimuth_prev1,
LAG(scraper_azimuth, 2) OVER (ORDER BY time) AS scraper_azimuth_prev2,
LAG(scraper_azimuth, 3) OVER (ORDER BY time) AS scraper_azimuth_prev3
FROM scraper_azimuth_calculated
),
scraper_azimuth_gaps_filled AS (
SELECT
scraper_gps_id,
time,
scraper_coord,
next_scraper_coord,
dumpster_open,
CASE
WHEN scraper_azimuth = 0 AND scraper_azimuth_prev1 <> 0 THEN scraper_azimuth_prev1
WHEN scraper_azimuth = 0 AND scraper_azimuth_prev1 = 0 THEN scraper_azimuth_prev2
WHEN scraper_azimuth = 0 AND scraper_azimuth_prev1 = 0 AND scraper_azimuth_prev2 = 0 THEN scraper_azimuth_prev3
ELSE scraper_azimuth
END AS scraper_azimuth
FROM scraper_azimuth_prev
ORDER BY time
),
dozer_raw_gps AS (
SELECT
id AS dozer_gps_id,
time,
coord AS dozer_coord,
LEAD(coord, 1) OVER (ORDER BY time) AS next_dozer_coord
FROM sms_teltonika_gps_data
WHERE serial_number = _dozer_serial
AND time > TO_DATE(_day_id::TEXT, 'YYYYMMDD')
AND time < TO_DATE(_day_id::TEXT, 'YYYYMMDD') + 1
AND tenant_id = _tenant_id
ORDER BY time ASC
),
dozer_azimuth_calculated AS (
SELECT
dozer_gps_id,
time,
dozer_coord,
next_dozer_coord,
CASE
WHEN ST_Equals(dozer_coord, next_dozer_coord) THEN 0
ELSE DEGREES(ST_AZIMUTH(dozer_coord, next_dozer_coord))
END AS dozer_azimuth
FROM dozer_raw_gps
),
dozer_azimuth_prev AS (
SELECT
*,
LAG(dozer_azimuth, 1) OVER (ORDER BY time) AS dozer_azimuth_prev1,
LAG(dozer_azimuth, 2) OVER (ORDER BY time) AS dozer_azimuth_prev2,
LAG(dozer_azimuth, 3) OVER (ORDER BY time) AS dozer_azimuth_prev3
FROM dozer_azimuth_calculated
),
dozer_azimuth_gaps_filled AS (
SELECT
dozer_gps_id,
time,
dozer_coord,
next_dozer_coord,
CASE
WHEN dozer_azimuth = 0 AND dozer_azimuth_prev1 <> 0 THEN dozer_azimuth_prev1
WHEN dozer_azimuth = 0 AND dozer_azimuth_prev1 = 0 AND dozer_azimuth_prev2 <> 0 THEN dozer_azimuth_prev2
WHEN dozer_azimuth = 0 AND dozer_azimuth_prev1 = 0 AND dozer_azimuth_prev2 = 0 THEN dozer_azimuth_prev3
ELSE dozer_azimuth
END AS dozer_azimuth
FROM dozer_azimuth_prev
ORDER BY time
),
paired AS (
SELECT
*,
(
SELECT dozer_gps_id
FROM dozer_azimuth_gaps_filled
WHERE time >= (scraper_azimuth_gaps_filled.time - INTERVAL '5 second') AND time <= (scraper_azimuth_gaps_filled.time + INTERVAL '5 second')
LIMIT 1
),
(
SELECT dozer_coord
FROM dozer_azimuth_gaps_filled
WHERE time >= (scraper_azimuth_gaps_filled.time - INTERVAL '5 second') AND time <= (scraper_azimuth_gaps_filled.time + INTERVAL '5 second')
LIMIT 1
),
(
SELECT dozer_azimuth
FROM dozer_azimuth_gaps_filled
WHERE time >= (scraper_azimuth_gaps_filled.time - INTERVAL '5 second') AND time <= (scraper_azimuth_gaps_filled.time + INTERVAL '5 second')
LIMIT 1
)
FROM scraper_azimuth_gaps_filled
),
calculated AS (
SELECT
*,
CASE
WHEN scraper_coord IS NULL THEN NULL
WHEN dozer_coord IS NULL THEN NULL
ELSE ST_DistanceSphere(scraper_coord, dozer_coord)
END AS machine_distance,
CASE
WHEN scraper_azimuth IS NULL THEN NULL
WHEN dozer_azimuth IS NULL THEN NULL
WHEN scraper_azimuth = 0 AND dozer_azimuth = 0 THEN NULL
ELSE ABS(scraper_azimuth - dozer_azimuth)
END AS azimuth_delta
FROM paired
),
dozer_nearby_detected AS (
SELECT
*,
CASE
WHEN machine_distance <= _distance_treshold AND azimuth_delta <= _azimuth_treshold THEN TRUE
ELSE FALSE
END AS dozer_nearby
FROM calculated
),
dozer_nearby_prev_next AS (
SELECT
*,
LAG(dozer_nearby, 1) OVER (ORDER BY time) AS prev1,
LAG(dozer_nearby, 2) OVER (ORDER BY time) AS prev2,
LAG(dozer_nearby, 3) OVER (ORDER BY time) AS prev3,
LEAD(dozer_nearby, 1) OVER (ORDER BY time) AS next1,
LEAD(dozer_nearby, 2) OVER (ORDER BY time) AS next2,
LEAD(dozer_nearby, 3) OVER (ORDER BY time) AS next3
FROM dozer_nearby_detected
),
dozer_nearby_gaps_filled AS (
SELECT
scraper_gps_id,
CASE
WHEN prev1 IS TRUE AND next1 IS TRUE THEN TRUE
WHEN prev1 IS TRUE AND next1 IS FALSE AND next2 IS TRUE THEN TRUE
WHEN prev1 IS TRUE AND next1 IS FALSE AND next2 IS TRUE THEN TRUE
WHEN prev1 IS TRUE AND next1 IS FALSE AND next2 IS FALSE AND next3 IS TRUE THEN TRUE
WHEN prev1 IS FALSE AND prev2 IS TRUE AND next1 IS FALSE AND next2 IS TRUE THEN TRUE
WHEN prev1 IS FALSE AND prev2 IS FALSE AND prev3 IS TRUE AND next1 IS TRUE THEN TRUE
WHEN prev1 IS FALSE AND prev2 IS TRUE AND next1 IS TRUE THEN TRUE
WHEN prev1 IS FALSE AND next1 IS FALSE THEN FALSE -- removing short loadings
ELSE dozer_nearby
END AS dozer_nearby
FROM dozer_nearby_prev_next
)
UPDATE sms_teltonika_scraper_gps_data
SET dozer_nearby = dozer_nearby_gaps_filled.dozer_nearby, dozer_id = _dozer_id
FROM dozer_nearby_gaps_filled
WHERE sms_teltonika_scraper_gps_data.id = dozer_nearby_gaps_filled.scraper_gps_id
AND dozer_nearby_gaps_filled.dozer_nearby IS TRUE;]]>
= (_truck_volume / _loader_volume) * _loading_time * _load_time_coef
)
SELECT
*,
(
SELECT
ST_Centroid(ST_UNION(coord)) AS centroid
FROM sms_teltonika_gps_data
WHERE serial_number = _loader_serial AND time > (motionless_data.start_date - INTERVAL '10 second') AND time < (motionless_data.start_date + (motionless_data.duration + 10) * INTERVAL '1 second')
) AS centroid
FROM motionless_data
)
SELECT
id,
CASE
WHEN centroid IS NULL THEN NULL
ELSE ST_DistanceSphere(motionless_centroid, centroid)
END AS distance
FROM loader_centroids
)
UPDATE sms_truck_move
SET type = 'loading', loader_id = _loader_id
FROM distance_data
WHERE sms_truck_move.id = distance_data.id AND distance_data.distance <= _max_distance]]>
1 AND param_pctconvex BETWEEN 0 and 0.99 THEN
-- get linestring that forms envelope of geometry
var_enline := public.ST_Boundary(public.ST_Envelope(var_param_geom));
var_buf := public.ST_Length(var_enline)/1000.0;
IF public.ST_GeometryType(var_param_geom) = 'ST_MultiPoint' AND public.ST_NumGeometries(var_param_geom) BETWEEN 4 and 200 THEN
-- we make polygons out of points since they are easier to cave in.
-- Note we limit to between 4 and 200 points because this process is slow and gets quadratically slow
var_buf := sqrt(public.ST_Area(var_convhull)*0.8/(public.ST_NumGeometries(var_param_geom)*public.ST_NumGeometries(var_param_geom)));
var_atempgeoms := ARRAY(SELECT geom FROM public.ST_DumpPoints(var_param_geom));
-- 5 and 10 and just fudge factors
var_tempgeom := public.ST_Union(ARRAY(SELECT geom
FROM (
-- fuse near neighbors together
SELECT DISTINCT ON (i) i, public.ST_Distance(var_atempgeoms[i],var_atempgeoms[j]), public.ST_Buffer(public.ST_MakeLine(var_atempgeoms[i], var_atempgeoms[j]) , var_buf*5, 'quad_segs=3') As geom
FROM generate_series(1,array_upper(var_atempgeoms, 1)) As i
INNER JOIN generate_series(1,array_upper(var_atempgeoms, 1)) As j
ON (
NOT public.ST_Intersects(var_atempgeoms[i],var_atempgeoms[j])
AND public.ST_DWithin(var_atempgeoms[i],var_atempgeoms[j], var_buf*10)
)
UNION ALL
-- catch the ones with no near neighbors
SELECT i, 0, public.ST_Buffer(var_atempgeoms[i] , var_buf*10, 'quad_segs=3') As geom
FROM generate_series(1,array_upper(var_atempgeoms, 1)) As i
LEFT JOIN generate_series(ceiling(array_upper(var_atempgeoms,1)/2)::integer,array_upper(var_atempgeoms, 1)) As j
ON (
NOT public.ST_Intersects(var_atempgeoms[i],var_atempgeoms[j])
AND public.ST_DWithin(var_atempgeoms[i],var_atempgeoms[j], var_buf*10)
)
WHERE j IS NULL
ORDER BY 1, 2
) As foo ) );
IF public.ST_IsValid(var_tempgeom) AND public.ST_GeometryType(var_tempgeom) = 'ST_Polygon' THEN
var_tempgeom := public.ST_ForceSFS(public.ST_Intersection(var_tempgeom, var_convhull));
IF param_allow_holes THEN
var_param_geom := var_tempgeom;
ELSIF public.ST_GeometryType(var_tempgeom) = 'ST_Polygon' THEN
var_param_geom := public.ST_ForceSFS(public.ST_MakePolygon(public.ST_ExteriorRing(var_tempgeom)));
ELSE
var_param_geom := public.ST_ForceSFS(public.ST_ConvexHull(var_param_geom));
END IF;
-- make sure result covers original (#3638)
var_param_geom := public.ST_Union(param_geom, var_param_geom);
return var_param_geom;
ELSIF public.ST_IsValid(var_tempgeom) THEN
var_param_geom := public.ST_ForceSFS(public.ST_Intersection(var_tempgeom, var_convhull));
END IF;
END IF;
IF public.ST_GeometryType(var_param_geom) = 'ST_Polygon' THEN
IF NOT param_allow_holes THEN
var_param_geom := public.ST_ForceSFS(public.ST_MakePolygon(public.ST_ExteriorRing(var_param_geom)));
END IF;
-- make sure result covers original (#3638)
--var_param_geom := public.ST_Union(param_geom, var_param_geom);
return var_param_geom;
END IF;
var_cent := public.ST_Centroid(var_param_geom);
IF (public.ST_XMax(var_enline) - public.ST_XMin(var_enline) ) > var_buf AND (public.ST_YMax(var_enline) - public.ST_YMin(var_enline) ) > var_buf THEN
IF public.ST_Dwithin(public.ST_Centroid(var_convhull) , public.ST_Centroid(public.ST_Envelope(var_param_geom)), var_buf/2) THEN
-- If the geometric dimension is > 1 and the object is symettric (cutting at centroid will not work -- offset a bit)
var_cent := public.ST_Translate(var_cent, (public.ST_XMax(var_enline) - public.ST_XMin(var_enline))/1000, (public.ST_YMAX(var_enline) - public.ST_YMin(var_enline))/1000);
ELSE
-- uses closest point on geometry to centroid. I can't explain why we are doing this
var_cent := public.ST_ClosestPoint(var_param_geom,var_cent);
END IF;
IF public.ST_DWithin(var_cent, var_enline,var_buf) THEN
var_cent := public.ST_centroid(public.ST_Envelope(var_param_geom));
END IF;
-- break envelope into 4 triangles about the centroid of the geometry and returned the clipped geometry in each quadrant
FOR i in 1 .. 4 LOOP
var_geoms[i] := public.ST_MakePolygon(public.ST_MakeLine(ARRAY[public.ST_PointN(var_enline,i), public.ST_PointN(var_enline,i+1), var_cent, public.ST_PointN(var_enline,i)]));
var_geoms[i] := public.ST_ForceSFS(public.ST_Intersection(var_param_geom, public.ST_Buffer(var_geoms[i],var_buf)));
IF public.ST_IsValid(var_geoms[i]) THEN
ELSE
var_geoms[i] := public.ST_BuildArea(public.ST_MakeLine(ARRAY[public.ST_PointN(var_enline,i), public.ST_PointN(var_enline,i+1), var_cent, public.ST_PointN(var_enline,i)]));
END IF;
END LOOP;
var_tempgeom := public.ST_Union(ARRAY[public.ST_ConvexHull(var_geoms[1]), public.ST_ConvexHull(var_geoms[2]) , public.ST_ConvexHull(var_geoms[3]), public.ST_ConvexHull(var_geoms[4])]);
--RAISE NOTICE 'Curr vex % ', public.ST_AsText(var_tempgeom);
IF public.ST_Area(var_tempgeom) <= var_newarea AND public.ST_IsValid(var_tempgeom) THEN --AND public.ST_GeometryType(var_tempgeom) ILIKE '%Polygon'
var_tempgeom := public.ST_Buffer(public.ST_ConcaveHull(var_geoms[1],least(param_pctconvex + param_pctconvex/var_div),true),var_buf, 'quad_segs=2');
FOR i IN 1 .. 4 LOOP
var_geoms[i] := public.ST_Buffer(public.ST_ConcaveHull(var_geoms[i],least(param_pctconvex + param_pctconvex/var_div),true), var_buf, 'quad_segs=2');
IF public.ST_IsValid(var_geoms[i]) Then
var_tempgeom := public.ST_Union(var_tempgeom, var_geoms[i]);
ELSE
RAISE NOTICE 'Not valid % %', i, public.ST_AsText(var_tempgeom);
var_tempgeom := public.ST_Union(var_tempgeom, public.ST_ConvexHull(var_geoms[i]));
END IF;
END LOOP;
--RAISE NOTICE 'Curr concave % ', public.ST_AsText(var_tempgeom);
IF public.ST_IsValid(var_tempgeom) THEN
var_resultgeom := var_tempgeom;
END IF;
var_newarea := public.ST_Area(var_resultgeom);
ELSIF public.ST_IsValid(var_tempgeom) THEN
var_resultgeom := var_tempgeom;
END IF;
IF public.ST_NumGeometries(var_resultgeom) > 1 THEN
var_tempgeom := public._ST_ConcaveHull(var_resultgeom);
IF public.ST_IsValid(var_tempgeom) AND public.ST_GeometryType(var_tempgeom) ILIKE 'ST_Polygon' THEN
var_resultgeom := var_tempgeom;
ELSE
var_resultgeom := public.ST_Buffer(var_tempgeom,var_buf, 'quad_segs=2');
END IF;
END IF;
IF param_allow_holes = false THEN
-- only keep exterior ring since we do not want holes
var_resultgeom := public.ST_MakePolygon(public.ST_ExteriorRing(var_resultgeom));
END IF;
ELSE
var_resultgeom := public.ST_Buffer(var_resultgeom,var_buf);
END IF;
var_resultgeom := public.ST_ForceSFS(public.ST_Intersection(var_resultgeom, public.ST_ConvexHull(var_param_geom)));
ELSE
-- dimensions are too small to cut
var_resultgeom := public._ST_ConcaveHull(var_param_geom);
END IF;
RETURN var_resultgeom;
END;]]>
>'m', 'base64'));
m_width := ST_XMax(geom) - ST_XMin(geom);
spacing := m_width / 12;
letterarray := regexp_split_to_array(replace(letters, ' ', E'\t'), E'');
FOREACH letter IN ARRAY letterarray
LOOP
geom := ST_GeomFromTWKB(decode(font->>(letter), 'base64'));
-- Chars are not already zeroed out, so do it now
geom := ST_Translate(geom, -1 * ST_XMin(geom), 0.0);
-- unknown characters are treated as spaces
IF geom IS NULL THEN
-- spaces are a "quarter m" in width
width := m_width / 3.5;
ELSE
width := (ST_XMax(geom) - ST_XMin(geom));
END IF;
geom := ST_Translate(geom, position, 0.0);
-- Tighten up spacing when characters have a large gap
-- between them like Yo or To
adjustment := 0.0;
IF prevgeom IS NOT NULL AND geom IS NOT NULL THEN
dist = ST_Distance(prevgeom, geom);
IF dist > spacing THEN
adjustment = spacing - dist;
geom := ST_Translate(geom, adjustment, 0.0);
END IF;
END IF;
prevgeom := geom;
position := position + width + spacing + adjustment;
wordarr := array_append(wordarr, geom);
END LOOP;
-- apply the start point and scaling options
wordgeom := ST_CollectionExtract(ST_Collect(wordarr));
wordgeom := ST_Scale(wordgeom,
text_height/font_default_height,
text_height/font_default_height);
return wordgeom;
END;]]>
true ) THEN
RAISE EXCEPTION 'Invalid schema name';
ELSE
real_schema = schema_name;
END IF;
ELSE
SELECT INTO real_schema current_schema()::text;
END IF;
-- Ensure that column_name is in geometry_columns
okay = false;
FOR myrec IN SELECT type, coord_dimension FROM public.geometry_columns WHERE f_table_schema = text(real_schema) and f_table_name = table_name and f_geometry_column = column_name LOOP
okay := true;
END LOOP;
IF (NOT okay) THEN
RAISE EXCEPTION 'column not found in geometry_columns table';
RETURN false;
END IF;
-- Ensure that new_srid is valid
IF ( new_srid > 0 ) THEN
IF ( SELECT count(*) = 0 from spatial_ref_sys where srid = new_srid ) THEN
RAISE EXCEPTION 'invalid SRID: % not found in spatial_ref_sys', new_srid;
RETURN false;
END IF;
ELSE
unknown_srid := public.ST_SRID('POINT EMPTY'::public.geometry);
IF ( new_srid != unknown_srid ) THEN
new_srid := unknown_srid;
RAISE NOTICE 'SRID value % converted to the officially unknown SRID value %', new_srid_in, new_srid;
END IF;
END IF;
IF postgis_constraint_srid(real_schema, table_name, column_name) IS NOT NULL THEN
-- srid was enforced with constraints before, keep it that way.
-- Make up constraint name
cname = 'enforce_srid_' || column_name;
-- Drop enforce_srid constraint
EXECUTE 'ALTER TABLE ' || quote_ident(real_schema) ||
'.' || quote_ident(table_name) ||
' DROP constraint ' || quote_ident(cname);
-- Update geometries SRID
EXECUTE 'UPDATE ' || quote_ident(real_schema) ||
'.' || quote_ident(table_name) ||
' SET ' || quote_ident(column_name) ||
' = public.ST_SetSRID(' || quote_ident(column_name) ||
', ' || new_srid::text || ')';
-- Reset enforce_srid constraint
EXECUTE 'ALTER TABLE ' || quote_ident(real_schema) ||
'.' || quote_ident(table_name) ||
' ADD constraint ' || quote_ident(cname) ||
' CHECK (st_srid(' || quote_ident(column_name) ||
') = ' || new_srid::text || ')';
ELSE
-- We will use typmod to enforce if no srid constraints
-- We are using postgis_type_name to lookup the new name
-- (in case Paul changes his mind and flips geometry_columns to return old upper case name)
EXECUTE 'ALTER TABLE ' || quote_ident(real_schema) || '.' || quote_ident(table_name) ||
' ALTER COLUMN ' || quote_ident(column_name) || ' TYPE geometry(' || public.postgis_type_name(myrec.type, myrec.coord_dimension, true) || ', ' || new_srid::text || ') USING public.ST_SetSRID(' || quote_ident(column_name) || ',' || new_srid::text || ');' ;
END IF;
RETURN real_schema || '.' || table_name || '.' || column_name ||' SRID changed to ' || new_srid::text;
END;]]>