@flowselections/pick-schermen-kwekers 1.0.93 → 1.0.94

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@flowselections/pick-schermen-kwekers",
-  "version": "1.0.93",
+  "version": "1.0.94",
   "flowselections": {
     "moduleId": "pick-schermen",
     "schema": {
@@ -20,6 +20,14 @@
         "nav": false,
         "public": true
       }
+    ],
+    "crons": [
+      {
+        "name": "pick-history-cleanup",
+        "kind": "sql",
+        "schedule": "35 * * * *",
+        "sql": "SELECT public.pick_cleanup_history();"
+      }
     ]
   },
   "private": false,

package/schema/pickschermen.sql

@@ -6441,4 +6441,132 @@ BEGIN
   END IF;
 END $mig$;
 REVOKE ALL ON FUNCTION public.pick_ensure_defaults_intern() FROM PUBLIC, anon, authenticated;
-GRANT EXECUTE ON FUNCTION public.pick_ensure_defaults_intern() TO service_role;
+GRANT EXECUTE ON FUNCTION public.pick_ensure_defaults_intern() TO service_role;
+-- ===== Golf 1: pickhistorie (20261110191301_eb6ef686-ecc0-446d-a7d8-65dfa16a2855.sql) =====
+-- Golf 1: pickhistorie alleen gewijzigde velden + eigen opruiming in porties
+CREATE OR REPLACE FUNCTION public.pick_queue_audit()
+ RETURNS trigger
+ LANGUAGE plpgsql
+ SECURITY DEFINER
+ SET search_path TO 'public'
+AS $function$
+DECLARE
+  v_old jsonb; v_new jsonb; v_o jsonb := '{}'::jsonb; v_n jsonb := '{}'::jsonb; k text;
+BEGIN
+  IF TG_OP = 'INSERT' THEN
+    INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+    VALUES ('pick_queue', NEW.id, TG_OP, auth.uid(), NULL, jsonb_strip_nulls(to_jsonb(NEW)));
+    RETURN NEW;
+  ELSIF TG_OP = 'DELETE' THEN
+    INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+    VALUES ('pick_queue', OLD.id, TG_OP, auth.uid(), jsonb_strip_nulls(to_jsonb(OLD)), NULL);
+    RETURN OLD;
+  END IF;
+
+  v_old := to_jsonb(OLD); v_new := to_jsonb(NEW);
+  FOR k IN SELECT jsonb_object_keys(v_new) LOOP
+    IF k <> 'updated_at' AND (v_old -> k) IS DISTINCT FROM (v_new -> k) THEN
+      v_o := v_o || jsonb_build_object(k, v_old -> k);
+      v_n := v_n || jsonb_build_object(k, v_new -> k);
+    END IF;
+  END LOOP;
+  IF v_n = '{}'::jsonb THEN RETURN NEW; END IF;  -- niets wezenlijks gewijzigd
+  v_o := v_o || jsonb_build_object('updated_at', v_old -> 'updated_at');
+  v_n := v_n || jsonb_build_object('updated_at', v_new -> 'updated_at');
+  INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+  VALUES ('pick_queue', NEW.id, TG_OP, auth.uid(), v_o, v_n);
+  RETURN NEW;
+END; $function$;
+GRANT EXECUTE ON FUNCTION public.pick_queue_audit() TO anon, authenticated, service_role;
+
+CREATE OR REPLACE FUNCTION public.pick_cleanup_history()
+ RETURNS jsonb
+ LANGUAGE plpgsql
+ VOLATILE
+ SECURITY DEFINER
+ SET search_path TO 'public'
+AS $function$
+DECLARE
+  v_days integer; v_start timestamptz := clock_timestamp(); v_total integer := 0; n integer; v_bron text := 'standaard';
+BEGIN
+  IF current_user NOT IN ('postgres','service_role','supabase_admin')
+     AND NOT COALESCE(public.has_role(auth.uid(), 'admin'), false) THEN
+    RAISE EXCEPTION 'Geen toegang tot het opruimen van de pickhistorie.' USING ERRCODE = '42501';
+  END IF;
+  IF to_regprocedure('public.logistics_retention_days(text)') IS NOT NULL THEN
+    BEGIN
+      EXECUTE 'SELECT public.logistics_retention_days($1)' INTO v_days USING 'pick_history_retention_days';
+      v_bron := 'engine';
+    EXCEPTION WHEN OTHERS THEN
+      RAISE WARNING 'pick_cleanup_history: termijn uit Engine niet leesbaar (%), standaard 30 dagen', SQLERRM;
+      v_days := NULL;
+    END;
+  END IF;
+  IF v_days IS NULL OR v_days < 1 THEN v_days := 30; v_bron := 'standaard'; END IF;
+
+  LOOP
+    WITH weg AS (SELECT id FROM public.pick_station_history
+                  WHERE created_at < now() - make_interval(days => v_days)
+                  ORDER BY created_at LIMIT 10000)
+    DELETE FROM public.pick_station_history h USING weg WHERE h.id = weg.id;
+    GET DIAGNOSTICS n = ROW_COUNT;
+    v_total := v_total + n;
+    EXIT WHEN n = 0 OR clock_timestamp() - v_start > interval '20 seconds';
+  END LOOP;
+  RETURN jsonb_build_object('verwijderd', v_total, 'termijn_dagen', v_days, 'bron', v_bron,
+    'duur_ms', round(extract(epoch FROM clock_timestamp() - v_start) * 1000));
+END $function$;
+REVOKE ALL ON FUNCTION public.pick_cleanup_history() FROM PUBLIC, anon, authenticated;
+GRANT EXECUTE ON FUNCTION public.pick_cleanup_history() TO service_role;
+
+COMMENT ON FUNCTION public.pick_reset_print(uuid, text) IS 'Verouderd: niet meer in gebruik (scherm gebruikt variant met _cart_id via p_device_key-wrapper). Verwijderen als handmatige stap.';
+COMMENT ON FUNCTION public.pick_enqueue_print_job(uuid, uuid, text, boolean) IS 'Verouderd: niet meer door het scherm aangeroepen; nog genest gebruikt door oude kernvarianten. Verwijderen als handmatige stap na controle.';
+-- 20261110194034_4411e109-0b93-4bc4-833b-fc93487e214c.sql
+-- Golf 1 aanvulling: binnen payload alleen gewijzigde onderdelen in de historie
+CREATE OR REPLACE FUNCTION public.pick_queue_audit()
+ RETURNS trigger
+ LANGUAGE plpgsql
+ SECURITY DEFINER
+ SET search_path TO 'public'
+AS $function$
+DECLARE
+  v_old jsonb; v_new jsonb; v_o jsonb := '{}'::jsonb; v_n jsonb := '{}'::jsonb; k text; s text;
+  v_po jsonb; v_pn jsonb;
+BEGIN
+  IF TG_OP = 'INSERT' THEN
+    INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+    VALUES ('pick_queue', NEW.id, TG_OP, auth.uid(), NULL, jsonb_strip_nulls(to_jsonb(NEW)));
+    RETURN NEW;
+  ELSIF TG_OP = 'DELETE' THEN
+    INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+    VALUES ('pick_queue', OLD.id, TG_OP, auth.uid(), jsonb_strip_nulls(to_jsonb(OLD)), NULL);
+    RETURN OLD;
+  END IF;
+
+  v_old := to_jsonb(OLD); v_new := to_jsonb(NEW);
+  FOR k IN SELECT jsonb_object_keys(v_new) LOOP
+    IF k <> 'updated_at' AND (v_old -> k) IS DISTINCT FROM (v_new -> k) THEN
+      IF jsonb_typeof(v_old -> k) = 'object' AND jsonb_typeof(v_new -> k) = 'object' THEN
+        v_po := '{}'::jsonb; v_pn := '{}'::jsonb;
+        FOR s IN SELECT jsonb_object_keys(v_old -> k) UNION SELECT jsonb_object_keys(v_new -> k) LOOP
+          IF (v_old -> k -> s) IS DISTINCT FROM (v_new -> k -> s) THEN
+            v_po := v_po || jsonb_build_object(s, COALESCE(v_old -> k -> s, 'null'::jsonb));
+            v_pn := v_pn || jsonb_build_object(s, COALESCE(v_new -> k -> s, 'null'::jsonb));
+          END IF;
+        END LOOP;
+        v_o := v_o || jsonb_build_object(k, v_po);
+        v_n := v_n || jsonb_build_object(k, v_pn);
+      ELSE
+        v_o := v_o || jsonb_build_object(k, v_old -> k);
+        v_n := v_n || jsonb_build_object(k, v_new -> k);
+      END IF;
+    END IF;
+  END LOOP;
+  IF v_n = '{}'::jsonb THEN RETURN NEW; END IF;
+  v_o := v_o || jsonb_build_object('updated_at', v_old -> 'updated_at');
+  v_n := v_n || jsonb_build_object('updated_at', v_new -> 'updated_at');
+  INSERT INTO public.pick_station_history(entity_table, entity_id, action, changed_by, old_data, new_data)
+  VALUES ('pick_queue', NEW.id, TG_OP, auth.uid(), v_o, v_n);
+  RETURN NEW;
+END; $function$;
+GRANT EXECUTE ON FUNCTION public.pick_queue_audit() TO anon, authenticated, service_role;