@flowselections/logistiek-engine 1.0.200 → 1.0.203

package/db/schema/logistiek-engine.sql

@@ -34601,3 +34601,658 @@ BEGIN
   END IF;
 EXCEPTION WHEN undefined_function THEN NULL;
 END $do$;
+
+-- ============================================================================
+-- 1.0.201 — extra platen, geenIndeling, vastzet-bevestiging, stickerstand, startlijst
+-- ============================================================================
+-- logistiek-engine 1.0.201 (additief, idempotent)
+
+CREATE OR REPLACE FUNCTION public.logistics_extra_platen(p_lagen numeric)
+RETURNS integer LANGUAGE sql IMMUTABLE SET search_path TO 'public' AS $$
+  SELECT CASE WHEN p_lagen IS NULL OR p_lagen < 0 THEN NULL
+              ELSE greatest(0, ceil(p_lagen - 0.001)::int - 1) END
+$$;
+
+CREATE OR REPLACE FUNCTION public.logistics_ladingdrager_tekst(p_carrier_code text, p_lagen numeric, p_pct numeric)
+RETURNS text LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+  WITH n AS (
+    SELECT coalesce(
+      (SELECT nullif(btrim(t.name), '') FROM public.load_carrier_types t WHERE t.code = p_carrier_code ORDER BY t.is_active DESC LIMIT 1),
+      'Ladingdrager') AS naam,
+      public.logistics_extra_platen(p_lagen) AS platen)
+  SELECT n.naam
+    || CASE WHEN n.platen IS NULL OR n.platen = 0 THEN '' WHEN n.platen = 1 THEN ' + 1 plaat' ELSE ' + ' || n.platen || ' platen' END
+    || CASE WHEN p_lagen IS NULL THEN ''
+            ELSE ' (' || replace(trim(trailing '.' FROM trim(trailing '0' FROM round(p_lagen, 2)::text)), '.', ',') || ' lagen'
+                 || CASE WHEN p_pct IS NULL THEN '' ELSE ', ' || round(p_pct)::int || ' %' END || ')' END
+  FROM n
+$$;
+
+CREATE OR REPLACE FUNCTION public.logistics_cart_platen_verrijk(p_cart jsonb)
+RETURNS jsonb LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+  SELECT p_cart || jsonb_build_object(
+    'additionalLayers', public.logistics_extra_platen(nullif(p_cart->>'layersUsed', '')::numeric),
+    'ladingdragerTekst', public.logistics_ladingdrager_tekst(p_cart->>'carrierType', nullif(p_cart->>'layersUsed', '')::numeric,
+        coalesce(nullif(p_cart->>'layerUtilizationPct', '')::numeric, nullif(p_cart->>'occupancyPct', '')::numeric)))
+$$;
+
+-- Kopie van de huidige slip-plan als _v200 (eenmalig), daarna wrapper met additionalLayers.
+DO $do$
+BEGIN
+  IF to_regprocedure('public.logistics_cart_slip_plan_v200(uuid)') IS NULL
+     AND to_regprocedure('public.logistics_cart_slip_plan(uuid)') IS NOT NULL THEN
+    EXECUTE replace(pg_get_functiondef('public.logistics_cart_slip_plan(uuid)'::regprocedure),
+                    'FUNCTION public.logistics_cart_slip_plan(', 'FUNCTION public.logistics_cart_slip_plan_v200(');
+  END IF;
+END $do$;
+
+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 := public.logistics_cart_slip_plan_v200(p_order_id);
+    BEGIN
+      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$;
+
+-- Reden bij geen/deels indeling.
+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; v_code text; v_tekst text; v_soort text; v_actie text;
+BEGIN
+  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 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 IN ('belading_onwaarschijnlijk', 'belading_onvolledig', 'ladingdrager_niet_in_beheer') OR v_code LIKE 'belading%' THEN
+    v_actie := 'belading_aanpassen';
+  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', v_actie,
+    'actieLabel', CASE WHEN v_actie IS NOT NULL THEN 'Belading aanpassen' END,
+    'actieUrl', CASE WHEN v_actie IS NOT NULL THEN '/logistiek-engine/beheer#gegevens-voor-karindeling' 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
+  SELECT b.order_id,
+         CASE WHEN b.state IN ('geen_indeling', 'deels') AND NOT coalesce(x.full_fulfilled, false)
+              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;
+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 := public.logistics_order_plan_coverage_v165(p_order_id); x jsonb := public.logistics_order_external_state(p_order_id);
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_order_plan_coverage');
+  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)
+             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;
+  b := b || jsonb_build_object('geenIndeling',
+         CASE WHEN b->>'state' IN ('geen_indeling', 'deels') THEN public.logistics_order_geen_indeling_core(p_order_id) END);
+  RETURN b || jsonb_build_object('externalFulfilled', x);
+END $$;
+
+-- Lijstvariant met extra kolom (bestaande lijst-RPC heeft een vast tabeltype).
+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
+  SELECT l.*, CASE WHEN l.state IN ('geen_indeling', 'deels') THEN public.logistics_order_geen_indeling_core(l.order_id) END
+    FROM public.logistics_order_plan_coverage_list(p_order_ids) l;
+END $$;
+
+-- Vastzetten met vooraf het gevolg.
+CREATE OR REPLACE FUNCTION public.logistics_belading_vastzet_preview(p_order_item_id uuid, p_wijziging jsonb)
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE oi record; w jsonb := coalesce(p_wijziging, '{}'::jsonb);
+  o_ppc numeric; o_cpl numeric; o_lpc numeric; n_ppc numeric; n_cpl numeric; n_lpc numeric;
+  o_fust numeric; n_fust numeric; o_kar numeric; o_kar_echt int; n_kar numeric; v_nodig boolean := false; v_tekst text;
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_belading_vastzet_preview');
+  SELECT * INTO oi FROM public.order_items WHERE id = p_order_item_id;
+  IF NOT FOUND THEN RAISE EXCEPTION 'Orderregel niet gevonden.'; END IF;
+  o_ppc := nullif(oi.plants_per_crate, 0); o_cpl := nullif(oi.crates_per_layer, 0); o_lpc := nullif(oi.layers_per_cart, 0);
+  n_ppc := coalesce(nullif(w->>'plants_per_crate', '')::numeric, o_ppc);
+  n_cpl := coalesce(nullif(w->>'crates_per_layer', '')::numeric, o_cpl);
+  n_lpc := coalesce(nullif(w->>'layers_per_cart', '')::numeric, o_lpc);
+  IF n_ppc IS NOT NULL AND n_ppc <= 0 OR n_cpl IS NOT NULL AND n_cpl <= 0 OR n_lpc IS NOT NULL AND n_lpc <= 0 THEN
+    RAISE EXCEPTION 'Waarden moeten groter dan 0 zijn.';
+  END IF;
+  o_fust := CASE WHEN o_ppc IS NOT NULL THEN ceil(oi.quantity / o_ppc) END;
+  n_fust := CASE WHEN n_ppc IS NOT NULL THEN ceil(oi.quantity / n_ppc) END;
+  SELECT count(DISTINCT ci.cart_id) INTO o_kar_echt FROM logistics_active.order_cart_items ci WHERE ci.order_item_id = p_order_item_id;
+  o_kar := CASE WHEN coalesce(o_kar_echt, 0) > 0 THEN o_kar_echt
+                WHEN o_fust IS NOT NULL AND o_cpl IS NOT NULL AND o_lpc IS NOT NULL THEN ceil(o_fust / (o_cpl * o_lpc)) END;
+  n_kar := CASE WHEN n_fust IS NOT NULL AND n_cpl IS NOT NULL AND n_lpc IS NOT NULL THEN ceil(n_fust / (n_cpl * n_lpc)) END;
+  IF o_fust > 0 AND n_fust > 0 AND greatest(n_fust / o_fust, o_fust / n_fust) > 2 THEN v_nodig := true; END IF;
+  IF o_kar > 0 AND n_kar > 0 AND greatest(n_kar / o_kar, o_kar / n_kar) > 2 THEN v_nodig := true; END IF;
+  v_tekst := 'Wordt ' || coalesce(n_fust::int::text, '?') || ' fust (was ' || coalesce(o_fust::int::text, '?') || ') op '
+          || coalesce(n_kar::int::text, '?') || ' kar(ren) (was ' || coalesce(o_kar::int::text, '?') || ').';
+  IF v_nodig THEN v_tekst := 'Let op: ' || coalesce(n_fust::int::text, '?') || ' fust (was ' || coalesce(o_fust::int::text, '?') || ') op '
+          || coalesce(n_kar::int::text, '?') || ' kar(ren) (was ' || coalesce(o_kar::int::text, '?') || '). Klopt het aantal planten per fust?';
+  END IF;
+  RETURN jsonb_build_object('orderItemId', p_order_item_id, 'planten', oi.quantity,
+    'oud', jsonb_build_object('plantsPerCrate', o_ppc, 'cratesPerLayer', o_cpl, 'layersPerCart', o_lpc, 'fust', o_fust, 'karren', o_kar, 'karrenBron', CASE WHEN coalesce(o_kar_echt,0) > 0 THEN 'indeling' ELSE 'berekend' END),
+    'nieuw', jsonb_build_object('plantsPerCrate', n_ppc, 'cratesPerLayer', n_cpl, 'layersPerCart', n_lpc, 'fust', n_fust, 'karren', n_kar),
+    'bevestigingNodig', v_nodig, 'tekst', v_tekst);
+END $$;
+
+CREATE OR REPLACE FUNCTION public.logistics_packing_set_manual_checked(p_order_item_id uuid, p_wijziging jsonb, p_bevestigd boolean)
+RETURNS jsonb LANGUAGE plpgsql SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE pv jsonb; w jsonb := coalesce(p_wijziging, '{}'::jsonb);
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_packing_set_manual_checked');
+  IF auth.uid() IS NULL THEN RAISE EXCEPTION 'niet ingelogd'; END IF;
+  pv := public.logistics_belading_vastzet_preview(p_order_item_id, w);
+  IF (pv->>'bevestigingNodig')::boolean AND NOT coalesce(p_bevestigd, false) THEN
+    RETURN jsonb_build_object('ok', false, 'bevestigingNodig', true, 'tekst', pv->>'tekst', 'preview', pv);
+  END IF;
+  UPDATE public.order_items SET
+    plants_per_crate = coalesce(nullif(w->>'plants_per_crate', '')::numeric, plants_per_crate),
+    crates_per_layer = coalesce(nullif(w->>'crates_per_layer', '')::numeric, crates_per_layer),
+    layers_per_cart  = coalesce(nullif(w->>'layers_per_cart', '')::numeric, layers_per_cart),
+    packing_locked_at = now(), packing_locked_by = auth.uid()
+  WHERE id = p_order_item_id;
+  RETURN jsonb_build_object('ok', true, 'bevestigingNodig', (pv->>'bevestigingNodig')::boolean, 'tekst', pv->>'tekst', 'preview', pv);
+END $$;
+
+-- Stickerstand per kar inclusief printopdrachten en stickerGevraagd.
+CREATE OR REPLACE FUNCTION public.logistics_cart_sticker_state(p_cart_id uuid)
+RETURNS jsonb LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $function$
+  WITH s AS (SELECT * FROM public.logistics_sticker_prints WHERE cart_id = p_cart_id),
+  vraag AS (
+    SELECT count(*) FILTER (WHERE coalesce(oi.needs_sticker, false)) AS met_sticker, count(*) AS regels,
+           array_agg(DISTINCT oi.order_id) FILTER (WHERE oi.order_id IS NOT NULL) AS order_ids
+      FROM public.order_cart_items ci
+      LEFT JOIN public.order_items oi ON oi.id::text = split_part(ci.order_item_id::text, '::', 1)
+     WHERE ci.cart_id = p_cart_id
+  ),
+  klant AS (
+    SELECT EXISTS (
+      SELECT 1 FROM public.orders o JOIN public.customers c ON c.id = o.customer_id, vraag v
+       WHERE o.id = ANY(coalesce(v.order_ids, '{}'::uuid[]))
+         AND (EXISTS (SELECT 1 FROM public.customer_product_stickers ps
+                       WHERE ps.customer_key IN (c.id::text, 'tf:' || coalesce(c.twinfield_code, '-'), 'cn:' || coalesce(c.customer_number, '-')))
+              OR EXISTS (SELECT 1 FROM public.customer_sticker_settings ss
+                       WHERE ss.customer_key IN (c.id::text, 'tf:' || coalesce(c.twinfield_code, '-'), 'cn:' || coalesce(c.customer_number, '-'))))
+    ) AS ingesteld
+  ),
+  pj AS (
+    SELECT coalesce(jsonb_agg(jsonb_build_object('printJobId', j.id, 'documenttype', j.documenttype::text, 'documentnaam', j.documentnaam,
+             'status', j.status::text, 'kopieen', j.kopieen, 'isHerprint', coalesce(j.is_herprint, false),
+             'aangemaaktOp', j.created_at, 'voltooidOp', j.voltooid_op, 'foutmelding', j.foutmelding) ORDER BY j.created_at), '[]'::jsonb) AS lijst,
+           count(*) AS n,
+           count(*) FILTER (WHERE j.status::text = 'voltooid') AS n_klaar,
+           count(*) FILTER (WHERE j.status::text IN ('mislukt')) AS n_fout
+      FROM public.print_jobs j
+     WHERE j.payload->>'cart_id' = p_cart_id::text
+       AND j.documenttype::text ILIKE '%sticker%'
+  ),
+  t AS (
+    SELECT
+      count(*) FILTER (WHERE status <> 'niet_printen') AS totaal,
+      count(*) FILTER (WHERE status IN ('in_printwachtrij','afgemeld')) AS in_wachtrij,
+      count(*) FILTER (WHERE status IN ('wacht_op_moment','klaar')) AS wachtend,
+      count(*) FILTER (WHERE status IN ('geblokkeerd','mislukt')) AS geblokkeerd,
+      count(*) FILTER (WHERE status = 'niet_printen') AS niet_printen,
+      (array_agg(reden ORDER BY soort, bron_id) FILTER (WHERE status = 'niet_printen' AND coalesce(btrim(reden), '') <> ''))[1] AS niet_reden,
+      coalesce(jsonb_agg(jsonb_build_object('soort', soort, 'stickerId', bron_id, 'kopieen', kopieen,
+         'status', status, 'reden', reden, 'printJobId', print_job_id, 'breedteMm', breedte_mm, 'hoogteMm', hoogte_mm)
+         ORDER BY soort, bron_id), '[]'::jsonb) AS regels
+    FROM s
+  )
+  SELECT jsonb_build_object(
+    'cartId', p_cart_id,
+    'totaal', t.totaal,
+    'inPrintwachtrij', t.in_wachtrij,
+    'wachtend', t.wachtend,
+    'geblokkeerd', t.geblokkeerd,
+    'regels', t.regels,
+    'stickersNodig', t.totaal > 0,
+    'geenStickersReden', CASE
+      WHEN t.totaal > 0 THEN NULL
+      WHEN t.niet_printen > 0 THEN coalesce(t.niet_reden, 'De stickers van deze kar hoeven niet geprint te worden.')
+      WHEN v.regels = 0 THEN 'Deze kar heeft geen regels.'
+      WHEN v.met_sticker = 0 THEN 'Geen regel op deze kar vraagt om een sticker.'
+      ELSE 'Er vraagt een regel om een sticker, maar die is nog niet klaargezet. De stickerronde pakt dit automatisch op.'
+    END,
+    'stickerGevraagd', (v.met_sticker > 0 OR k.ingesteld),
+    'stickerGevraagdBron', CASE WHEN v.met_sticker > 0 THEN 'orderregel' WHEN k.ingesteld THEN 'klant' END,
+    'printopdrachten', pj.lijst,
+    'printopdrachtenTotaal', pj.n,
+    'printopdrachtenVoltooid', pj.n_klaar,
+    'printopdrachtenMislukt', pj.n_fout)
+  FROM t, vraag v, klant k, pj;
+$function$;
+
+-- Startlijst: alleen gewicht ontbreekt = compleet met waarschuwing.
+CREATE OR REPLACE FUNCTION public.logistics_startlijst()
+RETURNS jsonb LANGUAGE plpgsql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+DECLARE v_drag int; v_drag_mist int; v_werk boolean; v_prod int; v_prod_mist int; v_prod_warn int;
+BEGIN
+  PERFORM public.logistics_acc_guard('ingelogd', 'logistics_startlijst');
+  SELECT count(*), count(*) FILTER (WHERE coalesce(t.layer_length_cm, 0) <= 0 OR coalesce(t.layer_width_cm, 0) <= 0 OR coalesce(t.max_height_cm, 0) <= 0)
+    INTO v_drag, v_drag_mist
+    FROM public.load_carrier_types t
+   WHERE t.is_active AND NOT EXISTS (SELECT 1 FROM public.logistics_floriday_carrier_map m WHERE m.carrier_code = t.code AND m.floriday_code = 'NONE');
+  SELECT EXISTS (SELECT 1 FROM public.logistics_rule_configs s WHERE s.is_active AND s.settings ? 'karrenindeling') INTO v_werk;
+  SELECT count(*),
+         count(*) FILTER (WHERE cardinality(array_remove(g.ontbrekend, 'weight')) > 0),
+         count(*) FILTER (WHERE g.ontbrekend = ARRAY['weight']::text[])
+    INTO v_prod, v_prod_mist, v_prod_warn FROM public.logistics_data_gereedheid(NULL) g;
+  RETURN jsonb_build_object(
+    'ladingdragers', jsonb_build_object('klaar', v_drag > 0 AND v_drag_mist = 0, 'aantal', v_drag, 'onvolledig', v_drag_mist),
+    'werkwijze', jsonb_build_object('klaar', v_werk),
+    'gereedheid', jsonb_build_object('klaar', v_prod_mist = 0, 'producten', v_prod, 'onvolledig', v_prod_mist, 'waarschuwing', v_prod_warn));
+END $$;
+
+CREATE OR REPLACE FUNCTION public.logistics_install_check_201()
+RETURNS TABLE(punt text, ok boolean, uitleg text) LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+  SELECT '1 extra platen', public.logistics_extra_platen(7.45) = 7 AND public.logistics_extra_platen(2.0) = 1 AND public.logistics_extra_platen(0.125) = 0,
+         'logistics_extra_platen rekent extra platen boven de bodem'
+  UNION ALL SELECT '1 slip-plan wrapper', to_regprocedure('public.logistics_cart_slip_plan_v200(uuid)') IS NOT NULL, 'logistics_cart_slip_plan geeft additionalLayers per kar'
+  UNION ALL SELECT '2 reden geen indeling', to_regprocedure('public.logistics_order_geen_indeling_core(uuid)') IS NOT NULL
+         AND to_regprocedure('public.logistics_order_plan_coverage_list_v201(uuid[])') IS NOT NULL, 'geenIndeling in coverage en lijst'
+  UNION ALL SELECT '3 vastzet-bevestiging', to_regprocedure('public.logistics_packing_set_manual_checked(uuid,jsonb,boolean)') IS NOT NULL, 'bevestiging bij >2x fust of karren'
+  UNION ALL SELECT '5 stickerstand', position('printopdrachten' IN pg_get_functiondef('public.logistics_cart_sticker_state(uuid)'::regprocedure)) > 0, 'printopdrachten en stickerGevraagd per kar'
+$$;
+
+DO $g$ BEGIN
+  GRANT EXECUTE ON FUNCTION public.logistics_extra_platen(numeric) TO authenticated, service_role;
+  GRANT EXECUTE ON FUNCTION public.logistics_order_geen_indeling_many(uuid[]) TO authenticated, service_role;
+  GRANT EXECUTE ON FUNCTION public.logistics_order_plan_coverage_list_v201(uuid[]) TO authenticated, service_role;
+  GRANT EXECUTE ON FUNCTION public.logistics_belading_vastzet_preview(uuid, jsonb) TO authenticated, service_role;
+  GRANT EXECUTE ON FUNCTION public.logistics_packing_set_manual_checked(uuid, jsonb, boolean) TO authenticated, service_role;
+  GRANT EXECUTE ON FUNCTION public.logistics_install_check_201() TO authenticated, service_role;
+END $g$;
+
+CREATE OR REPLACE FUNCTION public.logistics_cart_platen_verrijk(p_cart jsonb)
+RETURNS jsonb LANGUAGE sql STABLE SECURITY DEFINER SET search_path TO 'public' AS $$
+  SELECT p_cart || jsonb_build_object(
+    'additionalLayers', public.logistics_extra_platen(nullif(p_cart->>'layersUsed', '')::numeric),
+    'ladingdragerTekst', public.logistics_ladingdrager_tekst(p_cart->>'carrierType', nullif(p_cart->>'layersUsed', '')::numeric,
+        coalesce(nullif(p_cart->>'occupancyPct', '')::numeric, nullif(p_cart->>'layerUtilizationPct', '')::numeric)))
+$$;
+
+DO $d$ BEGIN
+  IF position('logistics_acc_guard' IN pg_get_functiondef('public.logistics_order_geen_indeling_core(uuid)'::regprocedure)) = 0 THEN
+    EXECUTE replace(pg_get_functiondef('public.logistics_order_geen_indeling_core(uuid)'::regprocedure),
+      'SELECT id, order_number, buffer_id INTO o FROM public.orders WHERE id = p_order_id;',
+      '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;');
+  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;