<?php
function to_pg_array($set) {
    settype($set, 'array'); // can be called with a scalar or array
    $result = array();
    foreach ($set as $t) {
        if (is_array($t)) {
            $result[] = to_pg_array($t);
        } else {
            $t = str_replace('"', '\\"', $t); // escape double quote
            if (! is_numeric($t)) // quote only non-numeric values
                $t = '"' . $t . '"';
            $result[] = $t;
        }
    }
    return '{' . implode(",", $result) . '}'; // format
}
?>

DECLARE
    i         integer;
    j         integer;
    _sorderid     integer;
    _sdeliveryid     integer;
    _dddd        integer;
    _test        integer;
    _ret         boolean;
    _hex        text;
    _family        text;
    _ptypeidtab    integer[];
BEGIN
    /* Création de la commande + Récupère l'identifiant */
    INSERT INTO supplierorders (orderform, startdate, quantity, supplier) VALUES (_orderform, _stardate, _total, _supplier) RETURNING "sorderid" INTO STRICT _sorderid;
    FOR j IN 1 .. _cadences LOOP

        /* Vérification du numéro de série */
        _ret := check_sn(_sn[j]);
        
        /* Détermination du numéro d'incrément pour la famille de produit */
        SELECT family AS _family FROM product_types WHERE ptypeid = _ptypeid[j];                                                                                                                               -- CETTE LIGNE LA BUG
        SELECT max(x'right( _sn[j], 4)'::integer) AS _dddd FROM product WHERE ptypeid IN (SELECT ptypeid AS _ptypeidtab FROM product_types WHERE family = _family) ;
        /* Si c'est le premier produit on commence la numérotation à 1 */
        IF (_dddd IS NULL)
        THEN
            _dddd = 0;
        END IF;
        
        /* Création de la cadence + Récupère l'identifiant */
        INSERT INTO supplierdeliveries (sorderid, ptypeid, batch, quantity) VALUES (_sorderid, _ptypeid[j]::integer, _batch[j]::integer, _quantity[j]::integer) RETURNING "sdeliveryid" INTO STRICT _sdeliveryid;

        /* Création des produits liés à la cadence */
        FOR i IN 1 .. _quantity[j] LOOP
            _hex = right('0000' || int_to_hex(_dddd + i),4);
            _sn[j] := left(_sn[j], -4) || UPPER(_hex);
            
            /* Insertion */
            INSERT INTO product (sdeliveryid, ptypeid, sn, status, date) VALUES (_sdeliveryid, _ptypeid[j]::integer, _sn[j]::text, 'Ordered', _stardate);
        END LOOP;
    END LOOP;
END;

la requête n'a pas de destination pour les données résultantes

XXXXXXXXXXXXX_0001
XXXXXXXXXXXXX_0002
XXXXXXXXXXXXX_0003
XXXXXXXXXXXXX_0004
XXXXXXXXXXXXX_0005
XXXXXXXXXXXXX_0006
XXXXXXXXXXXXX_0007
XXXXXXXXXXXXX_0008
XXXXXXXXXXXXX_0009
XXXXXXXXXXXXX_000A
XXXXXXXXXXXXX_000B
XXXXXXXXXXXXX_000C
XXXXXXXXXXXXX_000D
XXXXXXXXXXXXX_000E
XXXXXXXXXXXXX_000F
XXXXXXXXXXXXX_0010

max(x'right( sn, 4)'::integer)

PK           PTypeId          Clé primaire
               Family            Famille principale du produit (US-CORE, US-ICC, US-RACK, US-8I-RJ)
               Name             Désignation commerciale (US-COREV3, US-ICC2)
               Fab                Type de fabrication (FAB_A, FAB_B,...)
               Version          Version majeure du produit
               SubVersion     Version additionnelle du produit
               PN                 Part Number associé à l’état matériel du Produit (ne prend pas en compte des personnalisations logicielles comme l’ajout de licences)
               Description     Description du produit

SELECT family AS _family FROM product_types WHERE ptypeid = _ptypeid;  

SELECT ptypeid AS _ptypeidtab FROM product_types WHERE family = _family;

CREATE OR REPLACE FUNCTION add_cmd_gen(
    _cadences integer,
    _orderform integer,
    _total integer,
    _batch integer,
    _stardate date,
    _date date,
    _supplier text,
    _sn text,
    _quantity integer[],
    _ptypeid integer[])
  RETURNS boolean AS
$BODY$DECLARE
	i integer;
	j integer;
BEGIN
	RAISE LOG 'Création de la commande générale...';
	SELECT check_sn16(_orderform);
	IF (_orderform ~ '^CC[0-9]{2}(0[1-9]|1[0-2])(00[1-9]|0[1-9][0-9]|[1-9][0-9]{2})$')
	THEN
		IF (_supplier ~ '^[A-Z]+$')
		THEN
			IF (_startdate ~ '^(199[6-9]|[2-9][0-9]{3})-(0[1-9]|1[0-2])$')
			THEN
				IF (_quantity ~ '^[0-9]+$')
				THEN
					INSERT INTO supplierorders (orderform, startdate, quantity, supplier) VALUES (_orderform, _startdate, _total, _supplier) RETURNING sorderid;
					RAISE LOG 'Terminé';
				ELSE
					RAISE LOG 'La quantité n est pas correct!';
				END IF;
			ELSE
				RAISE LOG 'La date n est pas correct!';
			END IF;
		ELSE
			RAISE LOG 'Le nom du fournisseur n est pas correct!';
		END IF;
	ELSE
		RAISE LOG 'La date n est pas correct!';
	END IF;
	RAISE LOG 'Création des sous-commandes...';
	j = 0;
	WHILE _batch[j] IS NOT NULL LOOP
		IF (_sorderid ~ '^[0-9]+$')
		THEN
			IF (_ptypeid[j] ~ '^[0-9]+$')
			THEN
				IF (_batch[j] ~ '^[0-9]+$')
				THEN
					IF (_quantity[j] ~ '^[0-9]+$')
					THEN
						INSERT INTO supplierdeliveries (sorderid, ptypeid, batch, quantity) VALUES (_sorderid, _ptypeid[j], _batch[j], _quantity[j]);
						i = 0;
						FOR i IN REVERSE 0 .. _quantity LOOP
							INSERT INTO products (sdeliveryid, ptypeid, sn, status, date) VALUES (_sdeliveryid, _ptypeid, _sn, 'Commandées', GETDATE());
						END LOOP;
				ELSE
						RAISE LOG 'La quantité n est pas correcte';
					END IF;
				ELSE
					RAISE LOG 'Le numéro de lot n est pas correcte';
				END IF;
			ELSE
				RAISE LOG 'Le type de produit n est pas correcte';
			END IF;
		ELSE
			RAISE LOG 'La date n est pas correcte';
		END IF;
		j = j + 1;
	END LOOP;
	RAISE LOG 'Terminé';
END;$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION add_cmd_gen(integer, integer, integer, integer, date, date, text, text, integer[], integer[])
  OWNER TO postgres;