Problème avec fonctions et triggers

Bonjour, j'ai commencé avec Firebird et Zeos mais pour des Pb de sauvegardes je voudrais passer sur Postgre (fichiers WAL en plus).
mais j'ai des Pb avec des fonctions et trigger. Je suis sous Delphi 7.
Pour créer un nouveau client j’appelle la fonction et si tout est OK avec le trigger j’incrémente le compteur ce qui permet de ne pas perdre de numero si il y a des erreurs à l'insert.

Code:

---

1 2 3 4 5 6 7 8 9 10

ALTER PROCEDURE INSERT_CLI ( TEST2 Char(20) ) RETURNS ( TEST Integer ) AS /*declare TEST integer;*/ BEGIN TEST=GEN_ID("NUMCLIENT",0); insert into CLIENTS (noclient,CLIENT) values(:TEST,:TEST2) ;   suspend; END^

---

Code:

---

1 2 3 4 5 6 7 8 9

ALTER TRIGGER TRIGCLIENT ACTIVE AFTER INSERT POSITION 0 AS declare test int; BEGIN test=gen_id(NUMCLIENT,1); END^ SET TERM ; ^

---

Bonjour, après de nombreux essais j'ai trouvé.
la fonction appelée depuis delphi 7

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

-- Function: insert_cli(character)   -- DROP FUNCTION insert_cli(character);   CREATE OR REPLACE FUNCTION insert_cli(test2 character) RETURNS integer AS $BODY$;   INSERT INTO clients (noclient,client) VALUES((SELECT last_value FROM numclient),$1) ;   select cast( (SELECT last_value FROM numclient) as integer);   $BODY$ LANGUAGE sql VOLATILE

---

et la fonction trigger avec un trigger after update.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

-- Function: tyty()   -- DROP FUNCTION tyty();   CREATE OR REPLACE FUNCTION tyty() RETURNS trigger AS $BODY$begin PERFORM NEXTVAL('numclient'); RETURN NULL; end;$BODY$ LANGUAGE plpgsql VOLATILE

---