@flowselections/logistiek-engine 1.0.202 → 1.0.203

package/db/schema/logistiek-engine.sql

@@ -34940,3 +34940,319 @@ DO $d$ BEGIN
   SELECT id, order_number, buffer_id INTO o FROM public.orders WHERE id = p_order_id;');
   END IF;
 END $d$;
+
+-- 1.0.201 vervolg — kar_te_hoog, guards pakbonfuncties, productoordeel, Beheerlink (additief, idempotent)
+-- 1.0.201 vervolg: te hoge karren, guards op pakbonfuncties, productoordeel, Beheerlink altijd gevuld.
+
+-- Rekenhulp zonder gegevens: blokkade voor één kar.
+CREATE OR REPLACE FUNCTION public.logistics_kar_blokkade(p_kar text, p_lagen numeric, p_max numeric)
+RETURNS jsonb LANGUAGE sql IMMUTABLE SET search_path TO 'public' AS $$
+  SELECT CASE WHEN p_lagen IS NOT NULL AND coalesce(p_max, 0) > 0 AND p_lagen > p_max + 0.001
+    THEN jsonb_build_object('teHoog', true, 'blokkade', jsonb_build_object('code', 'kar_te_hoog',
+      'tekst', format('Kar %s heeft %s lagen, maximaal %s. Deel de order opnieuw in of pas de belading aan.',
+        coalesce(nullif(btrim(p_kar), ''), '?'),
+        replace(trim_scale(round(p_lagen, 2))::text, '.', ','),
+        replace(trim_scale(round(p_max, 2))::text, '.', ','))))
+    ELSE jsonb_build_object('teHoog', false, 'blokkade', NULL) END
+$$;
+
+-- Karren aanvullen (platen + blokkade). Geeft alleen de meegegeven kar terug, maar leest ladingdragernamen: guard.
+CREATE OR REPLACE FUNCTION public.logistics_cart_platen_verrijk(p_cart jsonb)
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE v_l numeric := nullif(p_cart->>'layersUsed', '')::numeric;
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_cart_platen_verrijk');
+  RETURN p_cart || jsonb_build_object(
+    'additionalLayers', public.logistics_extra_platen(v_l),
+    'ladingdragerTekst', public.logistics_ladingdrager_tekst(p_cart->>'carrierType', v_l,
+        coalesce(nullif(p_cart->>'layerUtilizationPct', '')::numeric, nullif(p_cart->>'occupancyPct', '')::numeric)))
+    || public.logistics_kar_blokkade(coalesce(p_cart->>'cartNumber', p_cart->>'cart_number', p_cart->>'seq'), v_l,
+         nullif(p_cart->>'maxLayers', '')::numeric);
+END $$;
+
+-- Guard op de kopie van de pakbonfunctie.
+DO $d$ BEGIN
+  IF to_regprocedure('public.logistics_cart_slip_plan_v200(uuid)') IS NOT NULL
+     AND position('logistics_acc_guard' IN pg_get_functiondef('public.logistics_cart_slip_plan_v200(uuid)'::regprocedure)) = 0 THEN
+    EXECUTE regexp_replace(pg_get_functiondef('public.logistics_cart_slip_plan_v200(uuid)'::regprocedure),
+      '\nBEGIN\n', E'\nBEGIN\n  PERFORM public.logistics_acc_guard(''ingelogd'', ''logistics_cart_slip_plan_v200'');\n');
+  END IF;
+END $d$;
+
+-- Pakbonfunctie: guard + per kar teHoog/blokkade.
+DO $do$ BEGIN
+  IF to_regprocedure('public.logistics_cart_slip_plan_v200(uuid)') IS NOT NULL THEN
+    EXECUTE $f$
+    CREATE OR REPLACE FUNCTION public.logistics_cart_slip_plan(p_order_id uuid)
+    RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $b$
+    DECLARE b jsonb;
+    BEGIN
+      PERFORM public.logistics_acc_guard('ingelogd', 'logistics_cart_slip_plan');
+      b := public.logistics_cart_slip_plan_v200(p_order_id);
+      IF b IS NULL OR jsonb_typeof(b->'carts') IS DISTINCT FROM 'array' THEN RETURN b; END IF;
+      RETURN b || jsonb_build_object('carts', (
+        SELECT coalesce(jsonb_agg(public.logistics_cart_platen_verrijk(t.e) ORDER BY t.o), '[]'::jsonb)
+          FROM jsonb_array_elements(b->'carts') WITH ORDINALITY t(e, o)));
+    END $b$;
+    $f$;
+  END IF;
+END $do$;
+
+-- Te hoge karren per order (via de buffer, dus ook gedeelde karren).
+CREATE OR REPLACE FUNCTION public.logistics_order_te_hoge_karren(p_order_ids uuid[])
+RETURNS TABLE(order_id uuid, cart_id uuid, cart_number integer, lagen numeric, max_lagen numeric, blokkade jsonb)
+LANGUAGE plpgsql STABLE SET search_path TO 'public' AS $$
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_te_hoge_karren');
+  RETURN QUERY
+  SELECT u.order_id, u.cart_id, coalesce(u.display_seq, u.cart_number), c.total_layers_used::numeric, c.max_layers::numeric,
+         public.logistics_kar_blokkade(coalesce(u.display_seq, u.cart_number)::text, c.total_layers_used, c.max_layers)->'blokkade'
+    FROM public.logistics_order_unit_carts_core(p_order_ids) u
+    JOIN logistics_active.order_carts c ON c.id = u.cart_id
+   WHERE (public.logistics_kar_blokkade(NULL, c.total_layers_used, c.max_layers)->>'teHoog')::boolean;
+END $$;
+
+-- Reden bij geen indeling: kar_te_hoog eerst, actieUrl altijd gevuld.
+CREATE OR REPLACE FUNCTION public.logistics_order_geen_indeling_core(p_order_id uuid)
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE o record; q record; d record; t record; v_code text; v_tekst text; v_soort text; v_actie text;
+  c_beheer constant text := '/logistiek-engine/beheer';
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_geen_indeling_core');
+  SELECT id, order_number, buffer_id INTO o FROM public.orders WHERE id = p_order_id;
+  IF NOT FOUND THEN RETURN NULL; END IF;
+  SELECT * INTO t FROM public.logistics_order_te_hoge_karren(ARRAY[p_order_id]) ORDER BY cart_number LIMIT 1;
+  IF FOUND THEN
+    v_code := 'kar_te_hoog'; v_tekst := t.blokkade->>'tekst'; v_actie := 'belading_aanpassen';
+  ELSE
+    SELECT status, reason, reason_code INTO q FROM public.logistics_plan_queue
+     WHERE order_id = p_order_id ORDER BY updated_at DESC NULLS LAST LIMIT 1;
+    IF FOUND AND q.status = 'geblokkeerd' THEN
+      v_code := coalesce(q.reason_code, 'geblokkeerd'); v_tekst := q.reason;
+    ELSE
+      SELECT dd.result, dd.explanation, dd.input_snapshot INTO d
+        FROM public.logistics_decisions dd
+       WHERE dd.slot = 'beladingindeling'
+         AND ((dd.subject_type = 'order' AND dd.subject_id = o.id::text)
+              OR (dd.subject_type = 'buffer' AND o.buffer_id IS NOT NULL AND dd.subject_id = o.buffer_id::text)
+              OR (o.order_number IS NOT NULL AND coalesce(dd.input_snapshot->'members', '[]'::jsonb) ? o.order_number))
+       ORDER BY dd.created_at DESC LIMIT 1;
+      IF FOUND AND coalesce((d.result->>'blocked')::boolean, false) THEN
+        v_code := coalesce(d.result->>'reason_code', 'geblokkeerd'); v_tekst := d.explanation;
+        v_soort := d.input_snapshot->>'soort';
+      ELSIF q.status IN ('pending', 'running') THEN
+        v_code := 'wacht_op_indeling'; v_tekst := 'De karindeling wordt gemaakt; dit duurt meestal enkele seconden.';
+      ELSE
+        v_code := 'onbekend';
+        v_tekst := 'Er is nog geen karindeling en er is geen blokkade vastgelegd. De minuutronde probeert het opnieuw; blijft dit staan, meld het aan beheer.';
+      END IF;
+    END IF;
+    IF v_code LIKE 'belading%' OR v_code = 'ladingdrager_niet_in_beheer' THEN v_actie := 'belading_aanpassen'; END IF;
+  END IF;
+  RETURN jsonb_build_object('code', v_code, 'soort', v_soort,
+    'tekst', coalesce(nullif(btrim(v_tekst), ''), 'Geen indeling; de reden is niet bekend.'),
+    'actie', coalesce(v_actie, 'beheer'),
+    'actieLabel', CASE WHEN v_actie IS NOT NULL THEN 'Belading aanpassen' ELSE 'Naar Engine-beheer' END,
+    'actieUrl', CASE WHEN v_actie IS NOT NULL THEN c_beheer || '#gegevens-voor-karindeling' ELSE c_beheer END);
+END $$;
+
+CREATE OR REPLACE FUNCTION public.logistics_order_geen_indeling_many(p_order_ids uuid[])
+RETURNS TABLE(order_id uuid, geen_indeling jsonb) LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_geen_indeling_many');
+  IF coalesce(cardinality(p_order_ids), 0) > 1000 THEN
+    RAISE EXCEPTION 'Maximaal 1000 orders per aanroep (ontvangen: %).', cardinality(p_order_ids) USING ERRCODE = '22023';
+  END IF;
+  RETURN QUERY
+  WITH th AS (SELECT DISTINCT h.order_id FROM public.logistics_order_te_hoge_karren(p_order_ids) h)
+  SELECT b.order_id,
+         CASE WHEN (b.state IN ('geen_indeling', 'deels') AND NOT coalesce(x.full_fulfilled, false)) OR th.order_id IS NOT NULL
+              THEN public.logistics_order_geen_indeling_core(b.order_id) END
+    FROM public.logistics_order_plan_coverage_list_v152(p_order_ids) b
+    LEFT JOIN public.logistics_external_fulfillment x ON x.order_id = b.order_id
+    LEFT JOIN th ON th.order_id = b.order_id;
+END $$;
+
+CREATE OR REPLACE FUNCTION public.logistics_order_plan_coverage_list_v201(p_order_ids uuid[])
+RETURNS TABLE(order_id uuid, order_number text, buffer_id uuid, state text, label text, progress_pct integer, reason text,
+              cart_count integer, pick_row_count integer, pick_status text, picked_at timestamptz,
+              buffer_order_count integer, buffer_cart_count integer, geen_indeling jsonb)
+LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_plan_coverage_list_v201');
+  IF coalesce(cardinality(p_order_ids), 0) > 1000 THEN
+    RAISE EXCEPTION 'Maximaal 1000 orders per aanroep (ontvangen: %).', cardinality(p_order_ids) USING ERRCODE = '22023';
+  END IF;
+  RETURN QUERY
+  WITH th AS (SELECT DISTINCT h.order_id FROM public.logistics_order_te_hoge_karren(p_order_ids) h)
+  SELECT l.order_id, l.order_number, l.buffer_id, l.state,
+         CASE WHEN th.order_id IS NOT NULL THEN 'Ingedeeld — kar te hoog' ELSE l.label END,
+         l.progress_pct, l.reason, l.cart_count, l.pick_row_count, l.pick_status, l.picked_at,
+         l.buffer_order_count, l.buffer_cart_count,
+         CASE WHEN l.state IN ('geen_indeling', 'deels') OR th.order_id IS NOT NULL THEN public.logistics_order_geen_indeling_core(l.order_id) END
+    FROM public.logistics_order_plan_coverage_list(p_order_ids) l
+    LEFT JOIN th ON th.order_id = l.order_id;
+END $$;
+
+CREATE OR REPLACE FUNCTION public.logistics_order_plan_coverage(p_order_id uuid)
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE b jsonb; x jsonb; v_hoog boolean;
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_plan_coverage');
+  b := public.logistics_order_plan_coverage_v165(p_order_id);
+  x := public.logistics_order_external_state(p_order_id);
+  IF jsonb_typeof(b->'carts') = 'array' THEN
+    b := b || jsonb_build_object('carts', (
+      SELECT coalesce(jsonb_agg(
+        CASE WHEN c.id IS NULL THEN t.e || jsonb_build_object('additionalLayers', NULL, 'layersUsed', NULL, 'teHoog', false, 'blokkade', NULL)
+             ELSE public.logistics_cart_platen_verrijk(t.e || jsonb_build_object(
+               'layersUsed', c.total_layers_used, 'occupancyPct', c.occupancy_pct, 'maxLayers', c.max_layers,
+               'layerUtilizationPct', CASE WHEN coalesce(c.max_layers, 0) > 0 AND c.total_layers_used IS NOT NULL
+                                           THEN round(100.0 * c.total_layers_used / c.max_layers, 1) END)) END
+        ORDER BY t.o), '[]'::jsonb)
+        FROM jsonb_array_elements(b->'carts') WITH ORDINALITY t(e, o)
+        LEFT JOIN logistics_active.order_carts c ON c.id::text = t.e->>'cartId'));
+  END IF;
+  IF x IS NOT NULL AND (x->>'full')::boolean THEN
+    b := b || jsonb_build_object('state', 'afgehandeld_extern', 'label', 'Afgehandeld in Floriday',
+                                 'reason', 'De order is in Floriday afgehandeld; de Engine plant en print er niets meer voor.');
+  END IF;
+  v_hoog := EXISTS (SELECT 1 FROM jsonb_array_elements(coalesce(b->'carts', '[]'::jsonb)) e WHERE (e->>'teHoog')::boolean)
+            OR EXISTS (SELECT 1 FROM public.logistics_order_te_hoge_karren(ARRAY[p_order_id]));
+  IF v_hoog AND b->>'state' IS DISTINCT FROM 'afgehandeld_extern' THEN
+    b := b || jsonb_build_object('label', 'Ingedeeld — kar te hoog');
+  END IF;
+  b := b || jsonb_build_object('geenIndeling',
+         CASE WHEN b->>'state' IN ('geen_indeling', 'deels') OR (v_hoog AND b->>'state' IS DISTINCT FROM 'afgehandeld_extern')
+              THEN public.logistics_order_geen_indeling_core(p_order_id) END);
+  RETURN b || jsonb_build_object('externalFulfilled', x);
+END $$;
+
+-- Kar-check voor de server (sticker- en verzendbriefronde).
+CREATE OR REPLACE FUNCTION public.logistics_cart_te_hoog(p_cart_id uuid)
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE c record;
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_cart_te_hoog');
+  SELECT oc.cart_number, oc.total_layers_used, oc.max_layers INTO c FROM logistics_active.order_carts oc WHERE oc.id = p_cart_id;
+  IF NOT FOUND THEN RETURN jsonb_build_object('teHoog', false, 'blokkade', NULL); END IF;
+  RETURN public.logistics_kar_blokkade(c.cart_number::text, c.total_layers_used, c.max_layers);
+END $$;
+
+-- LayerSpace (zelfde algoritme als dimensionPlanner.ts): maximaal aantal fusten per laag, beide startrichtingen.
+CREATE OR REPLACE FUNCTION public.logistics_max_fusten_per_laag(p_ll numeric, p_lw numeric, p_fl numeric, p_fw numeric)
+RETURNS integer LANGUAGE plpgsql IMMUTABLE SET search_path TO 'public' AS $$
+DECLARE best int := 0; rnd int; a0 numeric; b0 numeric; n int; placed boolean;
+  dep numeric[]; used numeric[]; total numeric; i int; k int; oa numeric; ob numeric; e numeric := 1e-9;
+BEGIN
+  IF coalesce(p_ll,0) <= 0 OR coalesce(p_lw,0) <= 0 OR coalesce(p_fl,0) <= 0 OR coalesce(p_fw,0) <= 0 THEN RETURN NULL; END IF;
+  FOR rnd IN 1..2 LOOP
+    IF rnd = 1 THEN a0 := p_fl; b0 := p_fw; ELSE a0 := p_fw; b0 := p_fl; END IF;
+    dep := '{}'; used := '{}'; total := 0; n := 0;
+    LOOP
+      EXIT WHEN n >= 100000;
+      placed := false;
+      FOR k IN 1..2 LOOP
+        IF k = 1 THEN oa := a0; ob := b0; ELSE oa := b0; ob := a0; END IF;
+        CONTINUE WHEN oa > p_ll OR ob > p_lw;
+        FOR i IN 1..coalesce(array_length(dep,1),0) LOOP
+          CONTINUE WHEN NOT (used[i] + oa <= p_ll + e);
+          IF ob <= dep[i] + e THEN used[i] := used[i] + oa; placed := true; EXIT; END IF;
+          IF i = array_length(dep,1) AND total - dep[i] + ob <= p_lw + e THEN
+            total := total - dep[i] + ob; dep[i] := ob; used[i] := used[i] + oa; placed := true; EXIT;
+          END IF;
+        END LOOP;
+        EXIT WHEN placed;
+        IF total + ob <= p_lw + e THEN dep := dep || ob; used := used || oa; total := total + ob; placed := true; EXIT; END IF;
+      END LOOP;
+      EXIT WHEN NOT placed;
+      n := n + 1;
+    END LOOP;
+    best := greatest(best, n);
+  END LOOP;
+  RETURN best;
+END $$;
+
+-- Productoordeel (zelfde regel als "Gegevens voor karindeling").
+CREATE OR REPLACE FUNCTION public.logistics_product_oordeel_many(p_product_ids uuid[])
+RETURNS TABLE(product_id uuid, oordeel text, tekst text, "actieUrl" text)
+LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+#variable_conflict use_column
+DECLARE r record; c record; v_carrier text; ls int; fh numeric; ph numeric; cpl numeric; lpc numeric; laag numeric;
+  blok text[]; waar text[]; mist text[]; hmist text[]; naam text; bron text;
+  c_url constant text := '/logistiek-engine/beheer#gegevens-voor-karindeling';
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_product_oordeel_many');
+  IF coalesce(cardinality(p_product_ids), 0) = 0 THEN RETURN; END IF;
+  IF cardinality(p_product_ids) > 1000 THEN
+    RAISE EXCEPTION 'Maximaal 1000 producten per aanroep (ontvangen: %).', cardinality(p_product_ids) USING ERRCODE = '22023';
+  END IF;
+  SELECT nullif(btrim(coalesce(s.settings->'karrenindeling'->'fields'->>'default_carrier_type', s.settings->'karrenindeling'->>'default_carrier_type')), '')
+    INTO v_carrier FROM public.logistics_rule_configs s WHERE s.is_active ORDER BY s.updated_at DESC LIMIT 1;
+  SELECT t.code, t.name, t.layer_length_cm, t.layer_width_cm, t.max_height_cm, t.max_crates_per_layer, t.layers_per_carrier INTO c
+    FROM public.load_carrier_types t
+   WHERE t.is_active AND (t.code = v_carrier OR (v_carrier IS NULL AND t.is_default))
+   ORDER BY (t.code = v_carrier) DESC NULLS LAST LIMIT 1;
+  naam := coalesce(c.name, c.code, 'de ladingdrager');
+
+  FOR r IN SELECT * FROM public.logistics_data_gereedheid(p_product_ids) LOOP
+    blok := '{}'; waar := '{}'; hmist := '{}';
+    mist := array_remove(coalesce(r.ontbrekend, '{}'), 'weight');
+    bron := coalesce(r.velden->'crates_per_layer'->>'bron', 'product');
+    cpl := coalesce(nullif(r.velden->'crates_per_layer'->>'waarde', '')::numeric, 0);
+    lpc := coalesce(nullif(r.velden->'layers_per_cart'->>'waarde', '')::numeric, 0);
+    fh := nullif(r.velden->'fust_height_mm'->>'waarde', '')::numeric / 10.0;
+    ph := nullif(r.velden->'plant_height_cm'->>'waarde', '')::numeric;
+    ls := public.logistics_max_fusten_per_laag(c.layer_length_cm, c.layer_width_cm,
+            nullif(r.velden->'fust_length_mm'->>'waarde', '')::numeric / 10.0, nullif(r.velden->'fust_width_mm'->>'waarde', '')::numeric / 10.0);
+    IF coalesce(fh,0) > 0 AND coalesce(ph,0) > 0 AND coalesce(c.max_height_cm,0) > 0 THEN
+      laag := greatest(fh, ph);
+      IF lpc * laag > c.max_height_cm + 1e-9 THEN
+        blok := blok || format('%s lagen × %s cm = %s cm, terwijl %s %s cm hoog is; er passen maximaal %s lagen',
+          lpc, trim_scale(round(laag,1)), trim_scale(round(lpc*laag,1)), naam, trim_scale(round(c.max_height_cm::numeric,1)), floor(c.max_height_cm / laag));
+      END IF;
+    ELSE
+      IF coalesce(fh,0) <= 0 THEN hmist := hmist || 'fusthoogte'::text; END IF;
+      IF coalesce(ph,0) <= 0 THEN hmist := hmist || 'planthoogte'::text; END IF;
+      IF coalesce(c.max_height_cm,0) <= 0 THEN hmist := hmist || ('hoogte van ' || naam); END IF;
+    END IF;
+    IF ls IS NOT NULL AND cpl > ls THEN
+      blok := blok || format('%s fust per laag (bron: %s), maar op een laag van %s passen er maximaal %s', cpl, bron, naam, ls);
+    END IF;
+    IF coalesce(c.max_crates_per_layer,0) > 0 AND cpl > c.max_crates_per_layer THEN
+      blok := blok || format('%s fust per laag (bron: %s), maar %s staat maximaal %s fust per laag toe', cpl, bron, naam, c.max_crates_per_layer);
+    END IF;
+    IF cardinality(blok) = 0 AND cardinality(hmist) > 0 AND coalesce(c.layers_per_carrier,0) > 0 AND lpc > c.layers_per_carrier THEN
+      waar := waar || format('%s lagen opgegeven, standaard %s; niet te controleren omdat de %s ontbreekt', lpc, c.layers_per_carrier, array_to_string(hmist, ', '));
+    END IF;
+    IF 'weight' = ANY(coalesce(r.ontbrekend, '{}')) THEN waar := waar || 'gewicht per fust ontbreekt'::text; END IF;
+
+    product_id := r.product_id; "actieUrl" := c_url;
+    IF cardinality(blok) > 0 THEN
+      oordeel := 'onmogelijk'; tekst := format('%s past niet op %s: %s.', r.product, naam, array_to_string(blok, '; '));
+    ELSIF cardinality(mist) > 0 THEN
+      oordeel := 'mist_gegevens'; tekst := r.uitleg;
+    ELSIF cardinality(waar) > 0 THEN
+      oordeel := 'waarschuwing'; tekst := format('%s: %s.', r.product, array_to_string(waar, '; '));
+    ELSE
+      oordeel := 'compleet'; tekst := format('%s: gegevens voor karindeling compleet.', r.product);
+    END IF;
+    RETURN NEXT;
+  END LOOP;
+END $$;
+
+GRANT EXECUTE ON FUNCTION public.logistics_kar_blokkade(text, numeric, numeric) TO authenticated, service_role;
+GRANT EXECUTE ON FUNCTION public.logistics_max_fusten_per_laag(numeric, numeric, numeric, numeric) TO authenticated, service_role;
+GRANT EXECUTE ON FUNCTION public.logistics_order_te_hoge_karren(uuid[]) TO authenticated, service_role;
+GRANT EXECUTE ON FUNCTION public.logistics_cart_te_hoog(uuid) TO authenticated, service_role;
+GRANT EXECUTE ON FUNCTION public.logistics_product_oordeel_many(uuid[]) TO authenticated, service_role;
+
+CREATE OR REPLACE FUNCTION public.logistics_install_check_201b()
+RETURNS TABLE(punt text, ok boolean, uitleg text) LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+  SELECT 'kar_te_hoog-regel', to_regprocedure('public.logistics_kar_blokkade(text,numeric,numeric)') IS NOT NULL, 'Blokkade per kar (teHoog/blokkade)'
+  UNION ALL SELECT 'guard pakbonfunctie', position('logistics_acc_guard' IN pg_get_functiondef('public.logistics_cart_slip_plan(uuid)'::regprocedure)) > 0, 'logistics_cart_slip_plan controleert de aanroeper'
+  UNION ALL SELECT 'guard pakbonkopie', to_regprocedure('public.logistics_cart_slip_plan_v200(uuid)') IS NULL OR position('logistics_acc_guard' IN pg_get_functiondef('public.logistics_cart_slip_plan_v200(uuid)'::regprocedure)) > 0, 'logistics_cart_slip_plan_v200 controleert de aanroeper'
+  UNION ALL SELECT 'guard kar-aanvulling', position('logistics_acc_guard' IN pg_get_functiondef('public.logistics_cart_platen_verrijk(jsonb)'::regprocedure)) > 0, 'logistics_cart_platen_verrijk controleert de aanroeper'
+  UNION ALL SELECT 'productoordeel', to_regprocedure('public.logistics_product_oordeel_many(uuid[])') IS NOT NULL, 'Oordeel per product voor het orderformulier'
+$$;
+GRANT EXECUTE ON FUNCTION public.logistics_install_check_201b() TO authenticated, service_role;

package/dist-lib/components/BeladingIndelingCard.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"BeladingIndelingCard.d.ts","sourceRoot":"","sources":["../../src/components/BeladingIndelingCard.tsx"],"names":[],"mappings":"AAsCA,wBAAgB,oBAAoB,gCAqJnC"}
+{"version":3,"file":"BeladingIndelingCard.d.ts","sourceRoot":"","sources":["../../src/components/BeladingIndelingCard.tsx"],"names":[],"mappings":"AAsCA,wBAAgB,oBAAoB,gCA0JnC"}

package/dist-lib/components/BeladingIndelingCard.js

@@ -13,7 +13,7 @@ import { previewLoadCarrierPlan, replanOrderLoadCarriers } from "../lib/loadCarr
 import { ladingdragerNaam } from "../lib/loadCarrierTypes.js";
 import { useFloricodeLadingdragers } from "../hooks/useFloricodeLadingdragers.js";
 import { layerUtilizationPct } from "../lib/layerUtilization.js";
-import { ladingdragerPlatenTekst } from "../lib/extraPlaten.js";
+import { karBlokkade, ladingdragerPlatenTekst } from "../lib/extraPlaten.js";
 const db = () => supabase;
 export function BeladingIndelingCard() {
     const floricodeNamen = useFloricodeLadingdragers();
@@ -79,5 +79,5 @@ export function BeladingIndelingCard() {
         }
     };
     const safeCarts = Array.isArray(carts) ? carts : [];
-    return (_jsxs(Card, { children: [_jsxs(CardHeader, { children: [_jsxs(CardTitle, { className: "flex items-center gap-2", children: [_jsx(Boxes, { className: "h-5 w-5 text-primary" }), "Beladingindeling"] }), _jsx(CardDescription, { children: "De Engine deelt de orderregels van de hele buffer in over ladingdragers. Bekijk eerst het resultaat en leg het daarna vast." }), _jsxs("div", { className: "flex flex-wrap items-end gap-2 pt-2", children: [_jsxs("div", { className: "space-y-1.5", children: [_jsx(Label, { htmlFor: "indeling-order", children: "Ordernummer" }), _jsx(Input, { id: "indeling-order", value: orderNummer, onChange: (e) => setOrderNummer(e.target.value), placeholder: "SO-12345", className: "w-56" })] }), _jsxs(Button, { onClick: () => void bereken(), disabled: bezig || !orderNummer.trim(), children: [_jsx(Search, { className: "mr-2 h-4 w-4" }), "Berekenen"] }), _jsx(Button, { variant: "outline", onClick: () => void vastleggen(), disabled: bezig || !orderId, children: "Vastleggen" })] })] }), _jsxs(CardContent, { className: "space-y-4", children: [warnings.length > 0 && (_jsx("ul", { className: "space-y-1 rounded-lg border border-dashed p-3 text-sm text-muted-foreground", children: warnings.map((w, i) => (_jsx("li", { children: w }, i))) })), safeCarts.length === 0 ? (_jsx("p", { className: "text-sm text-muted-foreground", children: "Nog geen indeling berekend." })) : (safeCarts.map((cart) => (_jsxs("div", { className: "space-y-2 rounded-lg border p-3", children: [_jsxs("div", { className: "flex flex-wrap items-center gap-2", children: [_jsxs("span", { className: "font-medium", children: ["Ladingdrager ", cart.cart_number] }), _jsx(Badge, { variant: "secondary", children: ladingdragerNaam(cart.carrier_type, floricodeNamen) }), _jsxs(Badge, { variant: cart.is_complete ? "default" : "outline", children: [cart.occupancy_pct, "% vol"] }), _jsxs("span", { className: "text-xs text-muted-foreground", children: [ladingdragerPlatenTekst(ladingdragerNaam(cart.carrier_type, floricodeNamen), cart.total_layers_used, cart.occupancy_pct ?? layerUtilizationPct(cart.total_layers_used, cart.max_layers)), cart.weight_kg ? ` · ${cart.weight_kg} kg` : ""] })] }), _jsxs(Table, { children: [_jsx(TableHeader, { children: _jsxs(TableRow, { children: [_jsx(TableHead, { children: "Partij" }), _jsx(TableHead, { className: "text-right", children: "Fusten" }), _jsx(TableHead, { className: "text-right", children: "Planten" }), _jsx(TableHead, { className: "text-right", children: "Aandeel" })] }) }), _jsx(TableBody, { children: (Array.isArray(cart.items) ? cart.items : []).map((item, idx) => (_jsxs(TableRow, { children: [_jsx(TableCell, { className: "font-medium", children: item.product_name }), _jsx(TableCell, { className: "text-right", children: item.crates }), _jsx(TableCell, { className: "text-right", children: item.plants }), _jsxs(TableCell, { className: "text-right", children: [Math.round(item.layer_share_pct * 10) / 10, "%"] })] }, `${item.order_item_id}-${idx}`))) })] })] }, cart.cart_number))))] })] }));
+    return (_jsxs(Card, { children: [_jsxs(CardHeader, { children: [_jsxs(CardTitle, { className: "flex items-center gap-2", children: [_jsx(Boxes, { className: "h-5 w-5 text-primary" }), "Beladingindeling"] }), _jsx(CardDescription, { children: "De Engine deelt de orderregels van de hele buffer in over ladingdragers. Bekijk eerst het resultaat en leg het daarna vast." }), _jsxs("div", { className: "flex flex-wrap items-end gap-2 pt-2", children: [_jsxs("div", { className: "space-y-1.5", children: [_jsx(Label, { htmlFor: "indeling-order", children: "Ordernummer" }), _jsx(Input, { id: "indeling-order", value: orderNummer, onChange: (e) => setOrderNummer(e.target.value), placeholder: "SO-12345", className: "w-56" })] }), _jsxs(Button, { onClick: () => void bereken(), disabled: bezig || !orderNummer.trim(), children: [_jsx(Search, { className: "mr-2 h-4 w-4" }), "Berekenen"] }), _jsx(Button, { variant: "outline", onClick: () => void vastleggen(), disabled: bezig || !orderId, children: "Vastleggen" })] })] }), _jsxs(CardContent, { className: "space-y-4", children: [warnings.length > 0 && (_jsx("ul", { className: "space-y-1 rounded-lg border border-dashed p-3 text-sm text-muted-foreground", children: warnings.map((w, i) => (_jsx("li", { children: w }, i))) })), safeCarts.length === 0 ? (_jsx("p", { className: "text-sm text-muted-foreground", children: "Nog geen indeling berekend." })) : (safeCarts.map((cart) => (_jsxs("div", { className: "space-y-2 rounded-lg border p-3", children: [_jsxs("div", { className: "flex flex-wrap items-center gap-2", children: [_jsxs("span", { className: "font-medium", children: ["Ladingdrager ", cart.cart_number] }), _jsx(Badge, { variant: "secondary", children: ladingdragerNaam(cart.carrier_type, floricodeNamen) }), _jsxs(Badge, { variant: cart.is_complete ? "default" : "outline", children: [cart.occupancy_pct, "% vol"] }), _jsxs("span", { className: "text-xs text-muted-foreground", children: [ladingdragerPlatenTekst(ladingdragerNaam(cart.carrier_type, floricodeNamen), cart.total_layers_used, cart.occupancy_pct ?? layerUtilizationPct(cart.total_layers_used, cart.max_layers)), cart.weight_kg ? ` · ${cart.weight_kg} kg` : ""] })] }), karBlokkade(cart.cart_number, cart.total_layers_used, cart.max_layers).blokkade && (_jsx("p", { className: "rounded-md border border-destructive/40 bg-destructive/10 p-2 text-sm text-destructive", children: karBlokkade(cart.cart_number, cart.total_layers_used, cart.max_layers).blokkade.tekst })), _jsxs(Table, { children: [_jsx(TableHeader, { children: _jsxs(TableRow, { children: [_jsx(TableHead, { children: "Partij" }), _jsx(TableHead, { className: "text-right", children: "Fusten" }), _jsx(TableHead, { className: "text-right", children: "Planten" }), _jsx(TableHead, { className: "text-right", children: "Aandeel" })] }) }), _jsx(TableBody, { children: (Array.isArray(cart.items) ? cart.items : []).map((item, idx) => (_jsxs(TableRow, { children: [_jsx(TableCell, { className: "font-medium", children: item.product_name }), _jsx(TableCell, { className: "text-right", children: item.crates }), _jsx(TableCell, { className: "text-right", children: item.plants }), _jsxs(TableCell, { className: "text-right", children: [Math.round(item.layer_share_pct * 10) / 10, "%"] })] }, `${item.order_item_id}-${idx}`))) })] })] }, cart.cart_number))))] })] }));
 }